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Well,  \/e  have  been  trying  like  the 
dickens  to  get  thi$  issue  out  on  laser, 
but  have  not  found  areliable  PostScript 
file  making  program,  v«'ve  tried  Jim 
Collette's  PS. Patch  2.0  vuith  no  luck. 
Help! 

I  finally  got  to  see  the  review  of 
dieHard  in  COMPUTE.  Well,  at  4am  I 
must  admit,  I  am  an  atmcious  speller  (I 
start  \yfloric  at  4am).  Ho\Nflever,v«  do  spell 
check  even  the  little  stuff,  it's  just  that  in 
the  Oops  issue  the  sections  -  what 
Christian  Fleming  refers  to  as  our 
in-house  ads  -were  typed  up  in  a  fur/ 
and  crammed  in  at  the  last  possible 
second  to  meetourdeadline.  We  do  try 
to  be  accurate. 

Let  me  clarify  the  lowercase  Von 
commodore  thing.  It  is  /%?/out  of 
disrespect,  it  is  n^/  because  we  feel 
that  Commodore  has  deserted  the  8  bit 
computers.  It  ^  because  on  the  cases 
of  all  their  8  bit  equipment  the  word  is 
spelled  with  a  lowercase  "c"  and  not  a 
capitol.  When  you  see  the  lowercase 
commodore  it  should  be  in  boldface 
and  it  is  probably  referring  to  specific 
equipment.  If  you  see  the  uppercase 
Commodore  and  it  is  not  in  boldface, 
then  we  are  probably  talking  about  the 
company  or  Commodore  in  general.  It 
is,  in  fact,  a  term  of  endearment  rather 
than  one  of  disrespect  -I  love  these  old 
8  bits! 

This  month's  PAPSAW  is  a 
discussion  on  the  writing  of  program's 
that  will  run  on  ail  of  the  commodore  8 
bit  machines,  picking  up  Vfttero  last 
month's  PAPSAW  leaves  off.  If 
anyone  reading  this  has  any  input  on 
the  subject,  let  us  know.  Also  forthose 
who  have  no  desiro  to  write  programs 
for  other  machines  we  do  have  a  small 
sampling  of  pokes  and  peeks  for  various 
machines. 

The  submissions  aro  starting  to 
come  in.  Keep  them  coming. 
Programmers  published  will  roceive  a 
froe  issue  of  the  Flyer  ^i^afroe  issue 


of  the  Spinner.  Send  them  to  dieHard, 
P.  0.  Box  392,  Boise,  Idaho,  83701. 
Unless  you  inclose  $2  for  shipping  and 
packaging  we  can  not  rotum  your  disk, 
sorr/. 

Due  to  some  roally  major  mess  ups, 
last  month's  PRG  is  being  rerun  this 
month.  The  lowercase  "c"  and  the  fancy 
brackets  { }  look  very  similar  to  say  the 
least.  Also,  some  lines  of  code  got 
messed  up  somehow.  It  has  to  do  with 
the  way  geoPubiish  deals  with  te>t 
boxes  and  rippling.  Anyway,  I  apologize 
to  everyone  for  letting  it  get  passed  me. 
My  rough  looked  ok,  it  wasn't  until  latter 
that  the  files  got  messed  up.  It  probably 
was  a  glitch  when  I  copied  them  from 
1 581  to  1 571  format.  Ok,  ok,  I've  gone 
onenoughl 

Forthose  interested,  thero  will  soon 
be  a  disk  available  called  The  dioHard'e 
complete  PD  looiiciL  What  this  disk 
will  consist  of  is  Public  Domain  (PD) 
programs  that  can  make  life  easier  Since 
the  programs  are  in  the  PD  these  will  be 
available  roal  cheap  (at  copy  cost,  plus 
postage,  packaging,  that  sort  of  thing). 
The  program  names  will  be  listed  so  you 
don't  necessarily  have  to  get  them  from 
us.  These  are  some  titles  that  should  be 
included:  Simons'  BASIC,  The  PET 
Emulator,  DATA  Meker64  to  name  a 
few. 

SDeeBe    iFroia    BBie    i^aeBO 

That's  what  has  been  happening  here.  A 
member  of  our  computer  chib  recently 
purchased  a  PET  2001  computer  and 
with  it  she  got  a  huge  box  full  of 
cassettes!  She  has  loaned  them  to  me, 
so  I've  been  checking  them  out.  It  would 
appear  that  she  has  almost  ail  of  the  first 
26  issues  of  a  cassette  based  magazine 
called  Cursor.  Consisting  entirely  of 
programs  for  the  PET  computer,  some  of 
which  are  simply  amazing.  Thero  is  one 
program  called  Dromeda!  on  issue  #1 8, 
that  is  a  movie  using  nothing  but 
keyboard  characters.  Ameteorite  lands  in 
the    center  of   town,  and   onHookers 


gather  It  goes  "click"  and  opens  up, 
scaring  everybody  off.  Soon  a  truck 
arrives  and  two  -  people  I  guess  -  get 
out  and  load  the  object  in  back  and  they 
take  it  to  an  underground  laborator/, 
\fv1iero  it  is  discoverod  to  be  some  micro 
sized  bug.  The  squaro  looking  at  the 
object  (the  people  aro  little  squaros), 
runs  away  to  the  elevator  end  out  of  the 
buikling  -  presumably  to  a  remote  area 
where  he  or  she  can  press  a 
self-destruct  button  that  blows  up  the 
lab.  The  creature  survives.  Plot  sound 
familiar?  This  program  even  has  sound! 
Although  I  can  only  hear  ft  using  the 
PET  Emulator  on  my  64  as  my  PET 
has  no  sound. 

Programs  range  from  business 
applications  like  data  bases  to  the  little 
movie  mentioned  above.  The 
magazines  even  have  covere  that 
usually  have  moving  graphics!  The  first 
copyright  date  is  1978.  It's  kind  of 
strange  to  see  a  copyright  notice  on  my 
64  that  says  1978! 

It  would  be  nice  if  I  could  get  ahold 
of  Cursor  or  someone  responsible  for 
the  program's  copyrights  and  see  if  we 
couldn't  share  some  of  these  with  our 
readere.  If  anyone  has  any  information 
regarding  this  or  any  other  magazine  or 
program  that  might  interest  our  readere 
send  ft  to  me.  This  could  be  anything 
regarding  the  PET  or  ^.k  Commodore 
computer 

While  I'm  on  the  subject,  are  there 
any  SuperPET  people  out  there.  Our 
Fog  Committee  needs  input.  Even 
though  this  is  a1 6  bft  machine,  we  will 
support  it.  It  probably  has  something  to 
do  with  that  tower  case  "c"  thing,  or 
maybe  ft  just  looks  cool. 

Well,  I've  rambled  on  too  much 
again.  Keep  those  programs  coming! 
Enjoy! 
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Key 

*****  Excellent 

*  *  *  *  Great 

*  *  *  Good 

*  *  Poor 

*Bad 

IconTroUer 

from  Suncom 

♦  >««  *  *  Great 

I  tove  my  M3  mouse.  I  love  my 
TAC2  joystick.  When  iising 
geoPamt  I  often  irant  to  use  a 
joystick,  but  my  joystick  is  in  port 
wo  and  tiie  mouse  is  in  port  one.  I 
hate  having  to  sTvap  them  vhile  the 
computer  is  on  So  I  don't,  I  don't 
have  to.  Also  plugged  into  port  one 
is  a  small  joystick-like  device  called 
the  IconTroUer. 

It  is  essentially  a  joystick  that 
mounts  on  tiie  side  of  your  CI  28, 
C64,  64C,  or  VIC20  computer. 
Sorry  128D  users,  the  plug  for  the 
keyhoaxd  hlocks  tiie  IconTroUer' s 
plug  from  entering  the  joystick  port 
I  say  blocks,  because  you  couM 
make  a  short  port  extension  plug  or 
you  can  buy  an  extension  plug  and 
use  that  The  cable  comes  out  of  tiie 
side  of  the  tinough  plug  -  light 
vheie  tiie  keyboard's  plug  rests.  It 
uses  tiie  standard  Atari  joystick  plug, 
so  it  vill  not  work  on  the  Plus  4,  or 
CI  6. 

A  through  plug  simply  means 
you  pluig  your  mouse  into  the 
IconTroUer  vhile  its  plugged  into 
the  computer.  You  don't  have  to 
throw  any  switches  or  tmplug 
anything  to  swap  devices. 

While  tiie  IconTroUer  works  like 
a  joystick,  it  is  not  intended  to  take 
tiie    abuse    given  to   the   average 


joystick.  It  is  intended  to  be  used 
with  drawing  programs  or  point  and 
click  envirarunents  such  as  GEOS. 

The  controUer  has  a  smaU  button 
much  like  the  fireboutton  of  a 
joystick  The  switches  inside  are  the 
same  so  no  special  driver  is  lequixed 
to  use  the  IconTroUer.  Although  you 
can  mount  it  to  your  keyboard,  you 
don' t  have  to,  you  could  conceivably 
hand  hold  it  or  even  mount  it  to  your 
workbench  or  desk.  The  shape 
conforms  to  tiie  1 28  or  64C  design 
and  looks  great,  altiiough  the  cobr 
doesn'  t  quite  match. 

Mounted  on  my  128,  I  find 
drawing  to  be  precise.  Tapping  on 
tiie  stick  lightly,  I  can  easily  pixel  edit 
in  any  drawing  program  witii  a 
dependable  amount  of  acctjutacy. 
While  the  controUer  itself  is  notiiing 
more  tiian  a  joystick  input  device,  its 
convenience  is  not  to  be  understated. 
You  can  use  it  on  a  computer  that  is 
crammed  into  a  smaU  work-space 
where  a  mouse  just  is  not  practical 

If  you  laid  out  tiie  big  ones  for 
GEOS  and  can' t  affoni  a  mouse,  tiiis 
is  a  viable  alternative,  as  weU  as  a 
space  saver.  They  cost  around  $1 7, 
which  is  the  price  of  a  top-Une 
joystick.  If  s  from  tiie  makers  of  my 
favorite  joystick;  Suncom  Because 
of  tiie  128D  draw  back  (tiiey  could 
have  made  tiie  plug  longer)  tiiis  one 
gets  *  *  *  * 

If  you  have  some  software  or 
hardware  tiiat  needs  exposure  send 
me  a  copy  dieHaid,  ATTN: 
REVIEW!,  P.O.Box  392,  Boise, 
Idaho,  83701. 

READY. 


Rarities 

by 
Brian  L  Crosthwaite 


Soitwan  Support  laltcraatioukl 
2700  IJIZ  Aa<3r«5«&  fioid  Suite  i-lO 
Vaa«ouv«r,  WA.  98661 

TZlilZX  Computer  Zxpr«55 
56800  If  a^Mtie  ^rive 
lla5}iavraka,  IS  46545-7481 


Mor^e  from  the  underground  I'm  a  big  fan  of 
the  1 28,  partiouiarly  the  1 28D.  This  month 
we  spotlight  the  talents  of  some  who  are 
supporting  this  great  machine. 

Our  first  was  Aif  Jonassen,  author  of 
the  Servant,  who  unfortunatlyhas  moved 
to  the  IBM  reaim.  Ihe  Servant  is  a 
memory  resident  program  that  resides  in  an 
EPROM,  either  in  the  empty  chip  socket 
inside  the  128  or  in  a  cartridge.  The 
program  allows  you  to  read  sequential  files, 
read  directories,  load  and  mn  programs, 
load  switch  over  to  6^  mode  and  run 
programs,  power  up  with  function  keys 
defined  to  your  definitions,  and  more.  Vou 
can  play  around  with  the  program  loaded 
from  disk  to  get  the  feel  of  whether  you 
want  it  installed  or  not.  You  can  then 
customize  it  before  you  bum  it  into  an 
EPROM  For  more  infonnaltion  contact: 
TV/BUG,  ATTN:  Librarian,  P.  0.  Box6853, 
Boise,  Idaho,  83707.  Or  you  can  check 
with  your  local  User  Group. 

Ne>4  ,  we  have  Rick  Kane,  creator  of 

//Usf^et/P^mtP/ij^j^f^}-  I  Paint.  One 
of  my  favorites,  this  program  is 
stupendous!  It  supports  all  BASIC  8 
picture  formats,  as  well  as  its  own.  The 
program  does  require  6^K  of  video  RAM 
This  ^  standard  on  the  1 28D,  but  not  on  all 
1 28*5,  so  an  upgrade  may  be  in  order -it's 
easy,  I've  done  it.  Now  I  don't  have  an 
address,      but  Software     Support 

International  carries  both  I  Pakit  and  the 
6^K  Video  RAM  For  a  catalogue,  write: 
Software  Support  International,  2700  NE 
Andresen  Road,  Suite  A-10,  Vancouver, 
WA,  98661. 

From  Silvasoft,  comes  Maidstone 
Quest.  Written  in  BASIC  8,  this  adventure 
game  takes  you  down  into  a  multi-level 
mine  in  search  of  treasures  and  glory.  The 
80  column  screen  is  full  of  infonnation  as 
well  as  graphics.  I  had  a  chance  to  look  at 
this  game,  but  only  briefly.  I'm  not  much  on 
te>^  adventures  and  this  game  wori<s  a  lot 
tike  one,  although  it  is,  in  fact  a  graphics 
adventure.  For    more     infonnation: 

Silvasoft,  P.O.  Box  1006,  Chariotte,  YT, 
05445. 

We  have  one  last  listing  for  GEOS 
fans  (64  or  1 28).  See  Rarity  on  page  1 5. 
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geoTips 

by 

Brian  LCrosthwaitB 


unPub  geoPublish 
Need  to  niake  a  geo Write  document 
that  lias  been  placed  into  a  geoPub 
dociunent  Trorkable  again?  Hexe  is 
hov.  Create  a  nev  geoPublish 
document  Nov,  go  into  the  page 
layout  mode.  Make  a  small  box  to 
fill  vith  text  in  the  upper  left  hand 
comer  or  the  screen  about  1  /5  inch 
square.  Highlight  it  and  select  the 
text  gadget  tmm  the  tools.  Click  on 
the  document  you  want  to  fix. 

Nov,  leave  geoPub.  Open  the 
document  you  want  to  fix  as  a 
geoWrite  document  Once  inside, 
with  the  cursor  at  ihB  top  left  most 
part  of  the  screen,  press  return  until 
any  and  all  text  goes  off  page  one  and 
onto  page  two.  You  can  also  use 
force  page  if  you  hke. 

You  might  not  be  able  to  delete  the 
first  page,  but  since  page  two  on  is 
full  page  wide,  you  can  change  the 
margins  to  any  size.  This  method  is 
faster  than  scrapping  pages  out  to  a 
text  album  and  into  a  new  geo  Write 
document  for  Ia]cger  documents. 

Sometimes  this  wiU  not  work, 
sometimes  the  second  page  takes  on 
the  same  width  as  the  first  page.  If 
this  happens  you  can  make  the  text 
square  (in  the  first  step)  inside 
geoPub  the  full  size  of  XhB  page. 
This  will  ensure  the  document  is  full 
page  wide. 

Resize  geoPublish 
If  you  need  to  line  up  the  text  from 
two    separate    boxes     (in    TEXT 
LAYOUT  MODE),  use  GRAPHIC 
mode  and  ZOOM  first    Zoom  into 


the  area  where  you  think  the  text  ends 
inside  GRAPHIC  MODE.  Next 
move  the  window  to  the  actual  end  of 
the  text  Look  at  the  ruler  on  the  left 
side  of  the  screen  and  note  where  the 
lest  word  or  symbol  falls  from  the 
top  text  If  s  best  to  give  it  an  extra 
unit  or  two.  Go  to  PAGE  LAYOUT 
again  and  click  on  the  arrow  on  4ie 
top  left  of  the  tool  box.  Click  on  the 
lower  right  comer  and  bring  the  box 
straight  up  to  the  point  on  the  ruler 
you  decided  to  end  at  Click  again 
and  the  box  should  be  at  the  end. 
You  can  place  the  next  box  light  up 
to  the  bottom  of  the  first  one,  don' t 
worry  if  HhB  lines  of  both  boxes 
overlap.  Check  it  again  in  the  ZOOM 
of  GRAPHIC  MODE  to  make  sure 
things  went  well 

Sneak  Svap  DESKTOP 
If  you  want  to  swap  disks  in  a  drive 
^t  is  not  open  (either  A  or  B),  you 
can  avoid  ^t  annoying  sequence  of 
events  ^t  stsirts  when  the  computer 
prompts  you  to  place  the  disk  back 
into  the  drive  by  simply  clicking  on 
RESET  after  swapping  disks. 
Instead  of  having  to  replace  thB  disk, 
click  OK,  wait  for  the  disk  to  open, 
close  it  and  switch  disks,  then 
re-open  ite  drive  and  THEN  go  back 
to  the  drive  you  want  open,  the 
screen  will  simply  redraw  and  the 
new  disk's  name  will  appear  tmder 
the  appropriate  drive  icon 

Bye  Files  DESKTOP 
The  quickest  way  to  remove  a  page 
of  files  is  simply  to  select  delete 
under  fte  PAGE  menu  of  fte 
DESKTOP.  The  files  win  not 
become  highlighted  and  you  will  not 
have  to  wait  for  them  to  be  deleted 
one  file  at  a  time.  There  will, 
however,  be  a  dialogue  box.  Just 
type  <RETURN>.  (Just  a  note: 
Viewing  files  by  anything  other  than 
icon  is  usually  faster. ) 


Get  out  of  there!  geoSpell 
If  you  need  to  remove  something 
from  yoTjr  personal  dictionary  do 
this:    Create  a  geoWrite  document 
with  one  word  that  you  know  is  not 
in   either  the  dictionary  or  your 
dictionary,  a  good  misspelling  like 
"CCCCCCCZZZ2Z2XXXXX"    Will   do   it 
Now,    speU  check  the  document 
Open  your  dictionary  at  the  prompt 
When  you  get  inside,  go  directly  to 
the  SWITCH  under  the  DICT  menu 
Now  scroll  through  the  dictionary 
until  you  find  the  word  you  don*  t 
want,  then  highlight  it  by  clicking  on 
it  Click  on  CUT  and  say  bye  bye  to 
the  unwanted  word.    Don't  get  too 
carried  away,   this  is  how  book 
burning  got  started  during  the  first 
one! 

Spell  Setap  geoSpell 
When  speU  checking,  I  have  found 
tiiat  if  I  leave  my  personal  dictionary 
on  my  workdisk,  I  don't  have  to 
wony  about  remembering  to  resave 
it  from  my  REU.  I  load  geoSpell 
and  the  dictionary  into  tiie  REU,  but 
leave  the  personal  dictionary  along 
with  my  documents  on  the 
workdisk.  When  I  continue  my 
spell  checking  from  one  document  to 
the  next,  geoSpell  keeps  track  of 
where  the  personal  dictionary  is,  so 
it  looks  one  the  disk  instead  of  the 
REU. 
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PAPSAW 

H ullti^ompuUK  Programs  Part  n 

or 

Th/i  lA««55aalt  SamblaAg5  of  a  Luaatic  ProgramsMr  Ooa«  Ha^ 

by 
Brian  L  Cro5thvnit« 

last  month  we  loo]fi«d  into  th*  BASIC  tokenizcr  to  se«  v«hat  computer  our  program  was  on.  locations  772  and 
773  r«v«al  to  us  a  unique  set  o£  numbers  that  we  then  combine  into  one  nun^er.  This  nun^er  tells  us  what 
computer  the  program  has  been  loaded  into.  Another  place  to  look  could  be  the  start  o£  basic  locations  at  A^ 
and  AA,  but  this  can  be  ineffective  if  BIORB  was  used,  because  the  program  will  be  in  the  memory  location  that 
the  program  was  saved  froni  ftnd  you  know  you  can*  t  save  the  same  program  from  all  cow^uters  at  once. 
Besides,  we  may  even  change  this  to  miake  room  for  another  program  or  a  sprite  set  for  the  6^1  version.  Ihe 
conversion  is: 


C0MPCnT3^;=PIIK(  772)  +256*PIIK(  773) 


which  should  return: 


HOTl:      Fasti oad  and  other  utilities  will  return 
different  numbers,  see  ^ble  1  for  examples 
of  this. 


35158  for  the  16  and  plus/ 4 

50556  for  the  VIC20 

^2364  for  the  6^4  (or  6AQ 

17165  for  the  128  HOTl:    I  don't  have  any  numbers  for  the  B,  P,  or  C  128  you'll  just  have  to  PIIK  into  it. 

0822'!  for  the  PIT  2001 

HOTL:  this  is  the  value  from  the  CBM  2001  Series  professional  computer.  Also,  the  value 
that  appeared  in  last  month'  s  article  was  incorrect,  it  seems  65280  is  the  initial  value 
upon  power  up.  822^  is  the  value  when  there  is  program  in  memory.  Itkerefore  I  must 
conclude  that  this  address  is  not  the  tokenizer.  Cfse  this  value  unless  you  can  check  it 
and  it  returns  a  different  number.   Boes  anyone  know  where  I  can  get  a  PZT  memory  map? 

The  next  step  is  the  set-up  routine.  ^  need  to  set  some  variables  for  the  different  machines  like  screen 
address,  color  locations,  et  cetera.  Let' s  use  SR  for  3CKZIN  ABBJ^SS,  CA  for  COLOR  ABBRZSS,  3C  for  SCklEN 
COIOk  and  so  on.  figure  1  shows  an  example  of  how  to  set  up  parameters  for  the  16  and  -H.  ^ble  2  shows  the 
address  for  several  of  the  computers  you  may  want  to  program  to.  Note  the  values  for  the  PIT  that  are  the 
same  (and  the  one  that  says  4^99).  This  is  because  the  PIT  has  a  monochromatic  screen  and  to  save  memory 
space  instead  of  using  boolean  logic  to  determine  whether  to  poke  or  not  to  poke,  I  simply  used  the  screen 
start  address.  Just  ignore  any  graphic  that  may  flash  on  the  screen  in  the  top  left  or  lower  right  (4999)  of 
the  screen.  It  is  a  good  idea  to  set  colors  up,  then  dear  the  screen.  That  way  the  PIT  s  screen  will  be 
clear  of  any  garbage. 


ir  C0=35158: 
3As3072:  CA=20't8: 

RIM  16-H 

BIh  3CBIIN  ANB  COIOk 

Cartridge 

Nuni>er 

linal  Cart 

57229 

hb^O: 

BIM  MCIITIPIIIR  rOR  SCBIIN  3IZI 

Simons'  BASIC 

33377 

SC=65301:  BC=65305: 

Bin  3CBIIN  COIOR  ANB  BOBBIR  COLOR 

Tbrbo  Load  &  Save 

49247 

CC=1394: 

RIM  CHARACTER  COLOR  MRKI  -1  TOR  MONOCHROMATIC 

Super  Ix  pander  6*4 

SP=0: 

RIM  OsNO  SPRITES  IsSPRITES 

Super  Ix pander  20 

GRsl: 

RIM  OsNO  GRAPHICS  1=GRAPXICS 

Xrt:319:  W=199: 

RIM  XMAX.  WAX  SCALI  lACTOR  1 

figure  1 

%ble  1  Altered  Machine  Id  No. 

CO 


35158 
50556 
42364 
17165 
08224 


computer 


SA 


CA 


SC 


BC 


CC 


SP 


GR 


XM 


m 


scale 


16  and  pi  us/ 4 

VIC20 

64  (or  64C) 

128 

PIT  2001 


3072  2048     40  65301    65305    1364  0  1 

7680  38400    22  36879    x        646  0  0 

1024  55296    40  53280    53281     646  1  0 

1024  55296    40  53280    53281     241  1  1 

32768  SA 40  SA SA SA  0  0 


319  319  1 

127  127  0 

319  199  0 

319  199  1 

?  (39)  ?  (24)  0 


Table  2 


The  program  needs  to  be  saved  at  1027  (decimal).  All  machines  v 
except  the  PIT,  so  saving  it  from  1027  will  allow  it  to  load  properly. 
BLOAB" filename" 

There    are    a    lot    of    problene    with   getting  the   address   change   to   work. 


11  load  it  to  their  own  start  of  BASIC, 
Be  sure  to  use  L0AB"filename",8  —  NOT 


I    tried  poldng,    then   loading 


aicXftrd]lar«k  4 


loading  th«n  poldng^  doing  it  in 
dir«ct  rvkodft  and  doing  it  in  th« 
program.  I  finally  got  an  answer 
by  using  th«  HT  Xaul««or  found 
on  th«  KST/linO  disk  for  th« 
15'41.   This  program  is  for  th«  6A, 

%th  th«  Eniuls^or^  I  can  take 
a  program  I  wrote  on  the  6A,  load 
it  and  sav«  it  again  and  the 
program  mil  now  load  into  the 
right  address  on  the  PIT.  Of 
course^  if  you  hav<e  a  merge  (often 
called  APPZNS)  program  for  the  PIT 
you  can  use  it  to  load  the  program 
into  the  right  spot  on  the  PIT^ 
simply  skip  loading  the  first 
program  and  just  merge. 

Now^  let' s  talk  about  various 
aspects  of  multi -machine  program- 
nrdng.  Ihere  are  a  few  things  to 
keep  in  mind  i^«n  programndng  for 
more  than  one  computer.  lor 
instance,  the  VIC  only  has  22 
colunrks  across  the  screen,  not  a 
convenient  nunnber  like  "40  or  80. 
You  could  look  at  it  as  a  20  column 
screen,  but  that  is  ev«n  more 
limiting  than  what  you  had  before. 
You  could  put  spaces  in  on  the 
wider  screens  to  center  text. 
IStfenty  columns  on  an  80  column 
monitor,  howev«r,  is  a  bit 
defeating.  liaybe  a  better  approach 
would  be  to  have  a  character  that 
can  b«  added  to  print  statements  to 
separate  characters  in  th«  string 
to  break  it  in  half.  But  then  you 
have  to  moke  certain  that  th«  at  20 
or  so  characters  into  your  text 
there  is  a  place  to  split  th«  text. 
I  think  you  see  my  point. 

Fortunately  there  is  a 
solution,  at  least  for  the  80 
columns  on  the  128.  The  128  has  a 
forty  column  mode,  and  most  of  th* 
rest  have  ^0  column  screens.  [Th« 
128'  s  80  column  screen  even  has  a 
•40  column  mode.  (Stay  tuned  for 
this  in  an  upcoming  inSM! )  And 
there  is  an  -4032  emulator  for  the 
8032  machine  that  miakes  it  a  40 
colunvk  machine.  ]  The  answer  to 
best  fit  the  VIC  is  to  make  a 
separate  screen.  This  is  not 
alirays  convenient  however,  even  the 
siivplest  of  programs  may  have 
several  screens  of  text  in  the 
instructions  alone. 

This  is  ^ere  the  VIC  becomes 
the  runner  of  the  VIC-only  version. 
Quite  simply,  if  there  are  a  great 
number  of  screens,  the  22  column 
formatting  and  the  smoll  memory  mny 


make  it  just  plain  impractical  to 
have  a  given  program  run  on  all 
machines  as  well  as  the  VIC.  Text 
adventures  are  a  good  example. 

Let'  s  move  on  with  our 
discussion.  What  of  the  8032?  Ihe 
8032  has  80  columns,  it  also  has  a 
•40  column  mode.  One  vray  to  check 
for  this  machine  is  to  clear  the 
screen  mth  a  print  statement,  then 
print  a  shifted  space  on  the 
screen.  Look  into  ^at  should  be 
the  screen  memory  location  for  its 
presence.  If  it'  s  there  then  you 
have  a  AO  column  PIT,  if  it' s  not 
there,  then  it  is  an  80  column  PIT. 
The  shifted  space  is  an  invisible 
character  on  the  screen.  You  can'  t 
use  space  alone,  the  screen  is 
already  filled  vdth  them 

P]aNT'<CLK>":  PMNT'  ":  rem  this 
is  a  shift  space 

SAs32768 

IT  PIIK  (SR)-h40<>96  then  you 
have  computer 
other  than  40 
column  PIT. 

The  first  PRINT  not  only 
clears  the  screen,  it  moves  the 
current  cursor  position  dovm  one. 
The  next  PRINT  places  the  shift 
space  on  the  screen  exactly  under 
the  top  left  corner.  If  the  screen 
is  80  column  the  computer  will  look 
into  a  location  other  than  this 
one.  Iven  if  the  3fl  is  the  same 
the  PIIK  would  have  to  be  460  to 
hit  this  location.  This  works  only 
after  your  program  has  established 
that  it  is  on  a  PIT.  To  check  the 
screen  mode  on  the  128  use: 
3s]U»IK0).  If  3s5  then  you're  in  80 
columns. 

This  first  little  trick  is 
used  on  those  old  dull  looking  PB 
programs  that  Commodore  flooded 
into  the  public  domain.  I  can' t 
tell  you  for  sure  ^at  the  PIIK 
into  772  and  773  reveals,  right  now 
I'  m  presuming  that  it  is  the  same 
on  all  PITs  up  to  the  8096.  (By 
the  ^y,  some  of  those  old  PB 
programs  are  still  amazing  today! ) 

Of  course  the  safest  route 
would  be  just  to  stick  to  BASIC 
without  POKIS.  BASIC  1  and  BASIC  2 
are  the  same,  other  than  BASIC  1'  s 
lack  of  BOS.  BASIC  3. 5,  4,  and  7 
all  understand  BASIC  2.  This  will 
limit  your  options  in  many  areas 
such  as  sprites  and  high  resolution 
graphics. 


Good  luck,  I'  m  looking  forward 
to  seeing  some  of  your  programs  in 
91S!  Until  next  time,  I'll  leave 
you  with  some  PAPSAV  — 

i£« 

POKI  59468,12  this  will  put  the 
PIT  into  upper-case  graphics 
mode. 

POKI  59468,10  puts  it  back  into 
lower-case  mode. 

C64: 

SYS  64739  supposedly  a  popular 
crash  in  the  UK,  but  ^y. . . 

16-M: 

POKI  SC,C  Ok  112  will  give  you 
the  colors  mth  the  same 
luminosities  as  on  the  64,  128 
and  VIC.  SC  is  the  screen 
color  address  and  C  is  the 
color  from  0  to  15.  SC  can 
also  be  border  color  or  cursor 
color. 

nc,  641,  16-M,  tE« 

PBINT  PIIK(43)«256'fPIIK(44)  will 
give  you  the  current  start  of 
BASIC.  4096  on  the  VIC,  2048 
for  the  64,  4096  16-H  (16384 
on  44  when  XIBIS  is  on),  and 
1027  for  the  PIT  is  normal. 
I'  m  not  sure  of  the  PIIKs  or 
the  address  on  the  128, 
PIIKing  here  on  my  machine 
says  that  basic  starts  at  0. 

64/128: 

Need  an  inconspicuous  place  to 
store  a  number?    ^y  787, 
it'  11  hold  from  0  to  255,  and 
the  computer  does  not  use  it. 
Bigger  number?   You  can  use 
1020  though  1023.   ^y  this: 
N  s  INT  (BNB  (0)«  131 070)  4-1 
Nl  s  N/2:  II  INT  (Nl)  s  Nl  TKEN 
N2  s  Nl:  IISI  Nl  s  INT 
(N1):N2  =  Nl  4-  1 
XI  =  INT  (N1/256):L1  s  Nl  -  XI 

«  256 
X2  s  INT  (N2/256):  L2  s  N2  -  X2 

*   256 
POKI  1020, XI:  POKI  1021, LI:  POKI 

1 022,  X2:  POKI  1023,  L2 
V  s  (PIIK  (1020)  *   256  4  PIIK 
(1021))  4  (PIIK  (1022)  * 
256  4  PIIK  (1023)) 
PkINT  V,N 

READY. 
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1993 


EftcK  year  tn  hsk  our  ><«ad«r5  alout 
tYMiy  systems  aad  inlt<re5t5  to  g«t  a  "bcttcK 
ufticrstaxk^iih^  of  wHerc  (o  otter  5uppoit.  Ve 
wa&lt  to  ott«r  support  to  all  mac}kia«5 
wh«3MY«r  po55xbIc.  T<11  U5  ftbout  your 
5y5t«m(5)! 

^ir«etioa5:  W«ll^  Iet'5  5««  t}ber«'5 
HoitK^  Souths  ah  W<5t^  aad  ot  course  Za5t 
I1m&  tlMre  are  tKo5<  KoitK  V«5t5  aad  South 
Ea5t5  thia^ies  —  too  aa&y  to  get  iato  here... 

S7STIH 


7. 


Zxpaasioa.  toar^s) 

( ) 

Hodem 


18.    What  15  your  favorite. 
(   )8»a« 


(   )  utility^ 


(   ) 

8.    BBS  u]m(5) 


"baud 


(  )  productivity^ 
(  )  all  time 


(  )Q-Ii»k. 
(  )<3Jikie_ 


19.    What  other  computer  related  iatere5t5 
do  you  have? 


(  )  CompuServe. 

(   )l>elphi I 

t  )  other 


1.    What  computer(5)  do  you  owWuse? 


2. 


3. 


( 
Prive. 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
Hoailtor 

( 
( 


PET_ 
CBM_ 


9.    iDput  deviee(5) 

(  )  paddle5      (  )  joyftiek 

(  )  mouse       (  )  track  ^all 

(  )  Koala  pad/Asumatioft  Station 

(   )  light  pe& 

(  )  other 


SuperPZT 
VIC  20 

B128 

PI  28 

CI  28 


UHSIC. 

10.  umi 


20.    Vhat  other  aoarcomputer  related 
ialtere5t5  do  you  have? 


Commodore  64 
Educator  64 
Executive  64 


)SX-64 
)l>X-64 


Commodore  16 

P1M54 

Commodore  128 

viaeoram(  )  16k  (  )  64k 
Commodore  128^ 
0th«r(5) 


11.  Euphony  ver (  )  +     (  )  Jr 

(  )11I1>I 

12.  Stereo  setup 

(  )  SI^  Sympho&y 
(  )  lateraally  installed 

second  Sl^  chip 

address 
(   )  other 

13.  Other  keyboards 

( ) 


21.    Vhat  would  you  like  to  see  more  oi  in 
the  riyir?  In  the  SpinneK? 


software: 


4040 
1540 
1541  (  )  c  (  )  n 

rs]>-i  (  )  rs^-2 

1542 
Indus 

USD  1001 

1571 

1581 

CM3>  Hard  l>rive_ 

Datassette 

other 


14.   SecorSing 

(  )  software^ 
(  )  hardware. 
(  )  other 


22.    Vhat  don't  you  like  about  the  Elyer? 


HKC. 


15.   Favorilte  hrand  ot  disks 
(  )  S" 


(  )5.25" 
(  )3.5". 


_meg 


TV  (  )  color  (  )h&w 

monitor    (  )  color  (  )  mono 

(  )SCBI(  )comp. 

(  )40col(  )80col 


16.   llagasines/]>isks  subscribed  to 

(  )  Compute's  Cazette  (  )  dvk 
(  )LOAI>STAfi 
(  )  LOAI^STAS128 
(  )  other. 


23.  Other  comments^  iieas^  et  cetera. 


17.   Vhat  do  you  use  your  computer  tor  (rate 
usage  0  to  5^  where  5  is  most  and  0  is 


')' 


4.  Printer 

(  ) 

(  ) 

(  )  Plotter 

5.  Hemory  expansion 

(  )17xx. 


size  (k) 


)  CEORAM^ 
)  RAHIink. 
)  RAH l>rive. 
)  other_ 


( 
( 

( 

(   . 

(  )  VIC  Super  Ex  pander.  3k 

(   )  other  VIC  expander ^k_ 


k. 
k. 
k. 
k. 
k_ 


(  )  word  processing 

(  )  spread  sheets 

(  )  data  bases 

(  )  general  productivity.. 

(  )  music  composition 

(  )  music  playing 

(  )  tekcommunieations 

(  )  advenlture  games 

(  )  arcade  games 

(  )  programming  in 

(  )  architectural  drawing 

(  )  viewing  computer  art 

(  )  creating  computer  art 

(  )  other 


Ve*d  like  to  see  your  programs!   So  this 

wouU  be  a  good  time  to  send 

one  in^  along  with  this  surveyi 

iulnrl^  flyer  Survey 

P  0  Box  392 

Boise  I]>  83701 


READV. 
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f^rckialc  Coinputer 

The  CDiiiputer  Store  ef  ttie  Fast 

by 
Brian  L  Crosthvaite 


^ 


Spring's  nev  hope  bom  of 
Autuma'3  decay...  From  the  old 
shall  arise  the  xtev,  like  a  tempest 
xjsmg  from  the  ashes.  Ok,  you  get 
the  idea.  I  love  it  vhen  things  thav 
out 

I  remember  livtctg  In  the 
doxmitory  in  college,  the  long  ouis 
spent  at  the  libiaiy,  Hhe  honcor  of 
donn  food,  the  ^ramen.  I  recall  tiie 
nights  of  ihB  gang  drinking  ale  (ok, 
ve  veie  the  cultured  tot  -  you  can*  t 
have  evexyOiing),  taking  turns  at 
LODE  BUHNER.  We  played 
some  of  the  Master  Itonic  games  I 
picked  up  at  Sears  for  $5.  Then^xe 
^^ras  the  ever  famous  Bejond  die 
Foiliidden  Forest,  ^th  its  tong 
opening  sequence,  great  graphics  and 
great  sound.  I  can  still  hear  the 
music  of  ^  mysterious  blue  orb  in 
my  head. 

Later  I  encountered  the  original 
Forbidden  Foiest  Although  the 
graphics  are  not  as  good,  the  sound 
and  the  game  play  is  great!  Then,  of 
course,  there  has  the  ever  populair 
Super  Hney,  vhich  "ve  played  "mih 
religtous  fervor.  Then  I  finally  got 
Super  Hney  II,  vhich  ^^as 
unfortunately,  a  massive 

disappointment  Oh  sure,  the 
graphics  li^re  killer  and  the  scenartos 
^vere  cool,  but  the  user  interface  iras 
so  complex  it  took  a^vay  i^hat  made 
Super  Hney  so  great 

Oh  sure,  I  studied  and  vent  to 
class,  but  this  is  a  column  of 
computer  stuff  and  I  vas,  at  the  time 
a  Theatce  Arts  Major.  Yes,  I  vas 
studying  the  classics:  Ipson,  Chekov, 


Shakespeare,  Ranier.  Speaking  of 
classics,  or  at  least  Solid  Gold,  Top  20 
Solid  Gold  -  no  not  Ameiican  Top 

40  —  COS  Mrs  collection  of  games 
from  the  past  is  definitely  a  blast  from 
the  past 

This  is  our  subject  matter  for  this 
month  I  vas  going  to  do  a  vrite  up  on 
this  package  several  months  ago,  but  I 
could  not  find  a  dealer  that  carried  it  I 
^ught  for  sure  it  had  gone  to  way  of 
the  Dodo  (you  knov,  the  Radto  Shack 
Cotor  Computer). 

Top  20  Solid  Gold 
ConuBodoie  Emeitunment  Hits! 

fromCOSMI 
Over  All  Rating:  ***** 
Reviewed  by  Reviewer-doer  ~ 
B  rian  L  Crosthwaite 

First  let  me  explain  my  reason  for 
the  5  star  rating.  As  you  read  on,  you 
will  come  to  find  that  not  all  the  games 
in  this  package  are  super  fantastic,  and 
not  aU  the  games  are  really  bad. 
Although  some  do  fall  into  this 
category.  This  package  is  so  full  of 
history  and  evolutton  (of  the  6^4  games 
and  what  ^y  were  like  and  had 
become)  that  no  one  wift  a  6^  should 
pass  up  getting  a  copy  of  this  package. 
Now  on  with  the  review. 

Well,  to  start  with,  this  package  is 
packed,  if  s  toaded  and  it  is  priced  right 
Now  as  tow  as  $11.95,  if  s  a  bargain 
that  no  6^4  historian  can  pass  up.  TbB 
package  has  five  disks  and  a  book  with 
instructions.  Each  disk  has  its  own 
menu,  I  think  there  are  three  different 
menuis,  maybe  to  make  it  interesting,  or 
possibly  just  because  they  were  written 


by  different  people,  I  don' t  know. 

The  name  may  be  misleading,  as 
some  of  the  games  just  plain  stink 
On  the  flip  side  of  things  some  of  the 
games  are  fantastic.  Not  to  mention 
the  fact  tixat  the  package  has  some 
major  historic  value.  If  you  can 
afford  it -buy  it! 

To  expedite  things,  what  Fm 
going  to  do  is  list  tiie  name  of  tiie 
program,  give  a  brief  annotation 
mixed  wiA  what  I  think  of  it  Thenat 
the  end  ru  give  you  an  over  all 
opinton,  altiiotJigh  I  tiiink  you  already 
know  what  I  think  of  this  bundle  of 
software  (I  tovei^). 

Slurley  HnUowney  Top 
Fuel  Challenge  1987.  You  wait 
for  what  seems  like  hours  to  drag 
race,  finally  the  program  is  ready,  and 
the  drag  race  lasts  about  5  seconds, 
because  you  btow  the  stupid  engine 
tiie  first  time  you  play  it  The  wait  is 
so  incredibly  tong  you  may  never  toad 
this  program  into  your  computer 
again  Uns  game  truly  stinks.  0 

Ricliazd  Petty  s  Talladega 
1984.  Tliis  game  reeks  of  Pole 
Position,  however  tiie  play  is  wild  in 
contrast  to  that  classic.  Music  is 
Taakee  Doodle,  but  game  play  is 
not  bad.  You  have  a  choice  of  a  set 
tcack  or  one  with  random  curves.  ♦  * 

HotOT  Mania  1982.  This 
game  tooks  like  sometinng  you  typed 
in  from  an  oU  issue  of  Po vei  Play 

Hie  graphics  are  not  too  bad,  although 
the  sprites  took  like  tiiose  of  other 
games  of  tiiis  sort  Game  play  is 
challenging,  but  not  all  tiiat  great 
You  drive  down  a  tcack  that  has  a  few 
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intersections  ^th  an  occasionad 
passing  fire  truck.  Oil  slicks  are 
square,  being  made  out  of  keyboani 
characters.  I  reconnnerul  tiiis  one  for 
kids  nev  to  arcade  games.  Historic 
value  in  this  one  *  * 

Time  Tunnel  1985.  This 
game  is  kind  of  neat  Ifs  an 
adventure  game  ^tii  pure  graphics 
and  you  can  actually  go  places  and 
feel  like  you'  le  getting  some vhere  in 
the  game.  The  computer  will  never 
respond  vlth,  "I  dorf  t  knov  hov  to 
hlalibtehsometinng."  ♦*♦* 

High  Noon  O  K  Corral  kind 
of  shoot '  em  up.  Graphics  aren'  t  too 
bad,  but  play  is  difficult  because  of 
the  user  interface.  Arcade  s^le 
action  ♦ 

Aztec  CliaUenge  This  one 
Tvas  a  big  seller.  The  graphics  are 
cool,  the  user  interface  makes  it  hani, 
but  it  becomes  part  of  tiie  game.  This 
one  is  a  toughy.  I  made  it  half  iiray 
up  tiie  pyramil  on  my  omt  (second 
challenge).  Arcade  adventure.  *** 

Forbidden  Forest  This  one 
^vas  a  mega-best-seller  and  I  can  see 
vhy.  The  graphics  are  good,  the 
music  and  sound  are  excellent,  the 
user  interface  is  great  and  the  game 
itself  is  challenging  and  fun  And 
you  don't  have  to  start  from  the 
beginning  after  you  die,  you  can  just 
continue  until  you  finally  make  it  all 
the  ^vay  tiirough  -  I  love  games  like 
tins.  Arcade  adventure.  ***** 

Caveins  of  Kltafka  Anotiier 
cool  one.  Graphics  are  good,  music 
better  than  good  in  this  Indiana  Jones 
kind  of  arcade  adventure.  Game  pky 
is  kind  of  ureird  at  times;  you  can 
climb  stuff  tiiat  isn't  tiiere  -  kind  of 
strange.  You  search  for  tteasures  as 
you  avoid  booby  traps.  **** 

Delta  Han  1986.  Sound  and 
Graphics  are  great,  game  play  is  a 
pain.  You  may  find  3?ourself  getting 
bored  because  of  slov  response  to 
input  Fantasy.  ** 


Slinky  A  best  seller  Q-Bert 
clone,  vith  a  tvist  When  you 
complete  a  level  there  is  a  tiny 
celebration  *♦* 

HediatDT  1986.  This  game  is 
much  like  Giavitron  in  tiiat  tiie 
physics  are  the  same  -  touch  tiie  fire 
button  and  turn  tiie  stick  kind  of  play. 
Graphics  are  vivilly  colorful  and 
sound  is  equally  colorful  Game  play 
is  sto V,  but  challenging.  *  *  * 

Fearless  Fred  and  die 
FactDi7  of  Doom  1986.  This 
game  is  great,  an  adventure  into  the 
crystal  factory  that  is  guanled  by 
vhat  appear  to  be  some  pretty  bad 
lookin'  punk-biker  dudes.  But  tiiey 
are  near  sighted  and  you  can  jump 
right  over  them  and  they  "woti  t  even 
knov  you  are  there!  Great  graphics, 
total  arcade  play  irortii  tiie  piice  of 
tiie  package  --***** 

Spite  9l  Halice  1986.  The 
game  of  Otiiello,  no  bad,  altiiough 
r  ve  seen  better  versions  in  tiie  Public 
Domain  that  are  as  oU  as  tiiis 
version  **** 

Legend  of  Knacker  Hole 
1 984  Guile  Jet-Boot  Jack  Enough 
the  maze  of  deadly  skulls  and  laser 
beams.  Arcade  game.  Very 
challenging.  ***** 

Psycatiia  1988.  This  is  a  2D 
Zaxzon  type  game,  very  tough 
Every  time  I  died  a  very  British 
female  voice  irauM  say,  "Tough  luck 
-  sucker."  Arcade  action,  fast  or 
slov- you  decile.  *** 

Beyond  Tlie  Forbidden 
Forest  The  graphics,  music,  sound 
effects,  game  play  and  user  interface 
are  fantastic  in  tiiis  arcade  adventure, 
although  some  vhat  repetitive.  *  *  * 

Clieniobyl  This  simulation  of 
the  ChenuDbyl  nuclear  pover  plant 
has  excellent  graphics  and  sound. 
The  user  interface  is  top  notch 
There  is  one  major  problem  ^th  this 
real-time  simulation,  it  is  realtime.  I 


tried  to  force  the  plant  to  melt  do vn, 
I  left  it  running  on  my  computer  for 
tvo  days  unattended,  nothing  vent 
vroitg.  Maybe  if  you  had  a  year  to 
kiU,  it  might,  but  I  dorft  think  it 
wjuU  ever  melt  dovn  Chernobyl 
vas  one  of  the  most  devastating 
disasters  that  humankind  has  ever 
brought  upon  this  planet  Part  of  the 
Tvorl  simulation  is  similar,  because 
of  the  lack  of  that,  the  five  stars  this 
game  "vojM  have  received  has  been 
dropped  to  a  *  *  * 

Professor  I.  Q.  1984  Spin 
the  vheel  to  choose  vhich  puzzles 
to  solve  before  fte  time  is  up.  ** 

Giand  HasteiCliess  1982. 
As  inth  many  chess  games  for  the 
6^4,  to  graphics  are  adequate,  it^s  a 
good  game.  **** 

Potty      Pigeon  Great 

graphics,  great  user  interface,  boring 
game.  LitOe  kils  might  like  it,  if 
you  don' t  mind  exposing  them  to  the 
violence  of  a  birl  killing  people  in 
cars  then  once  in  avhile  getting 
killed  itself.  Arcade.  *«* 

Ihe  collection  as  a  vhole, 
shovs  us  vhere  ve've  been  as 
comnodoze  64  users,  vhat 
programs  used  to  be  like  and  gives 
us  some  fun  games  along  the  way  - 
at  least  from  the  COS  MI  sile  of 
sixtyfomdom  Hiis  package  is  a 
spectrum  of  not  only  history,  but 
game  evolution  ***** 

Top  20  Solid  Gold 
Commodoie  Enteiteinment 
Hilsl  is  available  from  TEHEX 
Computer  Express,  56800  Magnetic 
Drive,  Mishavaka,  IN,  46545. 


READV. 


luXari  If areK  8 


by 
Brian  L  Crosthiiiaite 

LJ*  I       have       a 

commodore  64,  a  1541 
disk  drive  and  a  VIC  1525 
printer.  Loading  prog- 
rams can  take  forever.  I 
have  iust  won  the  state 
lottery  I  can  now 
afford  a  f astload-  utility 
cartridge  and  have  been 
looking  at  two  in 
particular:  The  Super 
Snapshot  &  Tlte  Final 
Cartridge.  Which  do 
you  recommend? 

Ill  I  have  seen  them 
both  in  action,  in  fact,  I 
use  the  Final  Cart- 
ridge quite  extensively. 
The  Super  Snapshot 
<SS)  has  a  sequential  file 
reader,  a  terminal  prog- 
ram, a  sprite  editor  and 
the  ability  to  save 
screens  to  disk  ~  then 
resume  your  program. 

They  both  have  BASIC 
commands  for  pro- 
gramming and  machine 
language  nionitors. 

They  both  offer  the 
ability  to  save  a 
memory  resident  pro- 
gram for  fast  loading. 
You  can  print  screens 
with  both  cartridges, 
but  Tlie  Final  Cart- 
ridge (FC>  will  not 
allow  you  to  resume 
your  program.  Both 
support  color.  You  can 
disable  sprites  to  cheat 
at  arcade  games. 
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They  both  claim  to  load 
programs  15  times 
faster  than  normal, 
however  when  com- 
pared the  SS  loaded  a 
large  program  in  9 
seconds  less  (it  took  the 
FC  30  seconds  to  load 
and  the  SS  21  seconds). 
The  FC  only  blanked  the 
screen  momentarily, 
while  the  SS  turned  the 
screen  into  garbage 
then  back  again.  Both 
cartridges  may  have 
done  this,  but  the  FC 
took  the  time  to  blank 
the  screen  so  you 
would  not  see  this 
That  ntay  account  for 
the  longer  load  time. 

The  FC  only  supports 
the  1^1  and  doesn't 
always  work  with  the 
1581.  rve  never  had  any 
problems  with  the  1^71. 
The  SS  supports  1^41, 
1571,  and  1531  drives.  All 
things  considered  I'd  go 
with  the  Saper  Snap- 
shot. It  costs  about  the 
same  and  you  get  more 
for  your  money. 


Ul  What  is  the  start  of 

BASIC   address  for   the 
PET? 

tu  1027,  decimal. 


0: 


Hello,  I  have  a  Com- 
modore 128>  VIC  20,  and 
even  a  Timex-Sinclair 
1000.  I  still  don't  have  a 
printer,  but  am  con- 
sidering a  Panasonic 
2124.     Is  this  fully  com- 


patible with  GEOS  128  20 
and  is  there  a  part- 
icular printer  interface 
which  would  be  best?. 
-Thanks,  Doug  Wagoner, 
Post  Falls,  Idaho. 


ft 


Let's  see,  Idaho, 
Idaho,  I  think  I've  been 
there!  I  have  no  data 
on  the  2124.  However,  if 
it's  anything  like  the 
2123  (or  the  1123),  you 
can  use  it  with  GEOS 
and  the  Epson  LQ-1500 
print  driver  on  page  4 
of  your  system  disk 
should  drive  it 
Remember  too,  that 
the  fonts  are  sent  to 
the  printer  as  graphics, 
and  so  the  letter 
quality  fonts  in  the 
printer  will  not  be  the 
ones  that  print  out, 
unless  you  use  geo- 
Write's  NLQ  feature. 
You  might  ask  the 
dealer  if  it  has  Epson  LQ 
emulation  to  be  sure. 

For  printer  interfaces  I 
recommend  the  Card- 
print  G-Wiz  Interface. 
I've  only  heard  good 
things  about  this  unit 
and  the  cost  is 
reasonable.  I  have  an 
early  model  Cardprint 
B,  and  it  is  great! 


(^ot  a  question  on  one 
of  the  many  great 
mysteries  of  life  and 
computing?  Send  them 
to:  dieHard,  ATTN:  Q8cA, 
POBox  392.  Boise,  Idaho, 
83701. 
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DOS  and  Don'ts 


DOS  (ind  Don'ts  reprinted  lukh  permission  from  LOADSTAR.    The  Complete  DOS  and  Don'ts  is  nvnilcible  on  1541  disk  for  the 

64  for  $9.95.  plus  $4.56  Shipping  for  2nd  dag  delivery  from  Softdisk.  P.O.  Box  36988.  Shreveport,  LA.  71138.    The  DOS 

Monoger  for  the  64  is  ak^alJable  for  $3.88  ($5.88  Canadian)  from  LgnnCarthy  Ind..  P.O.  Box  392.  Boise.  ID.  83781 

and  is  in  the  public  domain. 


Disk  Status  <e> 


by 
Joel  Ellis  Rea 


We  have  discussed  the  formatting 
(NEWing)  of  a  new  disk^  dnd  the  LOADIng 
and  SAVEing  of  BASIC  programs.  Now  we 
will  cover  some  maintenance  commands 
such  as  how  to  remove  a  program  that  is  no 
longer  needed^  how  to  change  the  name  of  a 
progrsim^  how  to  get  rid  of  all  unclosed  files 
on  a  disk,  etc.  As  always,  we  will  use  the 
DOS  Wedge  versions  of  disk  commends. 
Maintenance  commands  are  sent  by  the 
Wedge  to  the  Command  Channel  of  the  disk 
drive.  Without  the  Wedge,  you  would  have 
to  type: 

OPEN  1 5,8,1 5:  PRINHtl  5,  'command': 
CLOSE  15 

to  send  the  command  string  'command'  to 
the  disk  drive.  With  the  Wedge,  you  need 
only  type: 

©command 


or 


>  command 

For  our  examples,  we  will  use  the  '@'  prefix 
It  does  not  need  the  SHIFT  key  like  the  *>' 
prefix,  but  you  may  use  whichever  you 
prefer.  The  NEW  command  discussed  last 
issue  is  an  example  of  a  maintenance 
command.  Such  commands  are  performed 
by  the  disk  drive  itself.  The  64  only  passes 
the  command  from  you  to  the  drive.  The 
simplest  of  the  maintenance  commands  is 
the  Display  Disk  Status  command.  This  is 
actually  a  Wedge  special,  since  you  cannot 
just  print  this  command  to  the  Command 
Channel.  To  do  a  Display  Disk  Status,  just 
type: 


@ 

and  hit  RETURN, 
well,  the  screen  wi 


It's  that  simple.  If  ail  is 
I  display 


@  <-Vou  typed  this. 

00,  OK,00,00  <  -  Computer  says! 

This  means  that  the  Disk  Status  is  OK!  If  the 
red  drive  light  is  flashing  steadily,  that  means 
an  em)r  condition.  The  disk  drive  'knows'  what 
the  error  is,  but  since  it  does  not  control  the 
serial  bus,  it  cannot  'speak'  unless  'spoken 
to*.  By  typing  '@',  you  request  the  cun^nt 
status  of  the  drive.  An  example  of  an  error. 

/BADPRQ  <-LOAD'BADPRQ' 

SEARCHING  FOR  BADPRQ 
LOADING  <- Drive 'clatters'! 
READV.  <-Red  light  blinking! 
@      <  -  Display  Disk  Status 
20,READERROR,17,12 

The  first  number  displayed,  in  this  case  20,  is 
the  Em>r  Code.  The  text  following  the  Error 
Code  is  a  brief  description  of  the  error,  called 
the  Error  Message.  The  second  number  is 
(usually)  the  track  on  which  the  error 
occun^d,  called  the  Em>r  Track,  and  the  last 
number  is  the  sector  of  the  Error  Track  on 
which  the  em^r  occurred,  the  Error  Sector.  So 
this  response  means  that  there  was  a  READ 
ERROR  code  20  white  trying  to  read  sector  1 2 
of  track  1 7.  Once  the  Disk  Status  has  been 
displayed,  the  red  light  stops  flashing  and 
further  Disk  Status  commands  wHI  return  the 
OK  message  until  the  next  error. 

The  Directory  <$) 

The  next  command  we  will  discuss  is 
another  'Wedge  Special*.  It  is  called  the 
Display  Directory  command.  The  Directory  of 
a  disk  is  a  list  of  the  programs  and  other  files 
on  the  disk.  Without  the  Wedge,  it  is  virtually 
Impossible  to  get  a  Directoryr  Listing  without 
erasing  the  program  cun^ently  in  the 
computer's  memory.  That  is  because  the 
Director/  is  intended  to  be  LOADed  into 
memory  like  a  program,  and  then  LISTed.  Of 
course,  LOADing  one  program  erases  any 
other  that  might  be  in  memory  But  with  the 
Wedge,  you  can  view  the  Director/  without 
losing  your  cument  program.  Just  type: 

@9 


and  you  will  see  something  like: 

0  'MV  FIRSTDISK  '  Ml  2A  (reverse) 

1  'DOS  WEDGE'  PRG 
5  'D0S5.r  PRG 
18  'MENU'  PRG 
9  'IV€NUFILE'            SEO 

The  first  line  is  in  reverse  colors.  It  says 
that  Drive  «0  (The  1 5A\  only  has  1  drive  so 
you  can  ignore  this)  has  a  disk  in  it  that  was 
foimatted  (NEWed)  with  the  name  'MV  FIRST 
DISK'  and  the  ID  'Ml '.  The  1 5^1  uses  DOS 
Y2  and  4040  f oimaJt  (fonnat  A),  thus  the  '2A' 
in  the  header.  The  rest  of  the  lines  list  the 
files  on  the  disk.  For  each  file,  the  number 
of  blocks  (4  btocks  s  l  K)  that  the  file  uses  is 
displayed,  followed  by  the  name  of  the  file 
itself,  followed  by  the  file  type.  Vou  should 
only  see  4  types  on  any  of  your  disks. 
These  types  are  PRG  forPRoGram  (either 
BASIC  or  binary),  USR  forUSeR  (another 
verston  of  SEQ),  SEQ  for  SEOuential 
(usually  a  text  or  data  file),  and  REL  for 
RELative(akindof  datafile).  Okay  Let's 
suppose  that  you  wrote  the  program  called 
'MENU'  on  the  disk.  Now  let's  suppose  you 
make  some  modifications  to  the  program, 
and  now  you  want  to  save  the  changed 
version.  You  type  SAVE  'hCNU',8  ,but  to 
your  honor,  the  red  light  starts  flashing  after 
less  than  a  second!  The  drive  didn't  make 
any  clattering  noise  or  anything,  but  the 
drive  says  'ERROR"  with  that  red  LED!  Just 
request  the  Disk  Status  (with  '@'  or '>'),  and 
you  see  '63,  HLE  EXISTS,1 8,01 '.  The  nice 
folks  at  Commodore  didn't  want  you  to 
accidentally  save  over  an  e)4sting  file  so 
they  don't  let  you  do  it.  There  is  a  'Save  with 
Replace"  command,  but  as  I  warned  you  in 
the  first  issue,  DON'TUSE  IT1!  (Serious  Bug 
There  in  Some  Drives!)  Instead,  you  have 
two  choices.  The  easiest  but  less  safe  way 
is  to  remove  the  old  copy,  then  save  the  new 
version.  Thus,  we  introduce  a  new 
maintenance  command,  'SCRATCH'. 
To  be  continued. 
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Last  month  the  PRG  listings  had  some  bugs  in  them  rendering  them  useless.  This  month's  PRG  was  running  us  way  behind  schedule. 
So  rather  than  just  omit  the  column  altogether,  it  only  seems  logical  to  run  last  month's  article  and  listings  again.  Please  note  thait  technicality 
there  is  no  PRG  for  this  month  and  therefore  no  Spinner.  The  following  is  Febmar/s  PRG. 


PRG 

by 
BrianLCroslhvaite 

Last  month  (January)  the  Spinner 
had  a  program  for  the  VIC  20  called  Aiph% 
Count.  Alpha  C  )unt  is  a  game  for 
children  of  all  ages,  lie  program  starts  by 
asking  if  you  want  to  play  a  game.  The  VIC 
version  does  this  in  a  nonchalant  way,  as  if 
someone  has  mysteriously  appeared  in  the 
computer.  This  version  starts  similar,  but 
the  te)^  color  is  black.  Load  the  program  in 
the  computer  and  run  it.  Leave  the 
computer  on  for  the  r\^^  unsuspecting 
person! 

After  some  simple  input  from  the  user 
the  screen  fills  with  color  and  the  game 
begins.  Instructions  are  included.  While  the 
premise  is  rather  simple  it  will  provoke 
thought  on  the  behalf  of  the  user.  Alpha 
Count  is  listing  one  and  runs  on  the  4, 1 6, 
6^  and  128. 


Want  an  easy  way  to  go  from  sprite 
design  to  sprite  on  the  screen?  Ez-sprite 
^4  does  just  that.  It  demonstrates  how  a 
sprite  can  be  designed  right  in  the  data 
statements  using  asterisks.  Just  type  it  in 
and  run  it.  Press  space  if  the  computer  is 
just  sitting  there  and  it  will  list  out  the  data 
area  for  your  altercation.  See  listing  2. 


For  our  1 28'er  out  there,  there  is  a 
simple  cartoon  for  the  holiday.  Listing  3 
runs  only  on  the  1 28,  but  should  be  easily 
converted  to  the  b4  with  a  Super 
Expander.  The  SOUND  command  will 
have  to  be  changed.  This  PRG  has  many 
things  mari<ed  for  clarification  with 
REMari<s. 


For  the  VIC  20  there  is  Stangate  and 
Sviri  III,  listings  4  and  5  respectively  - 
both  mathematical  art.  These  are  hires 
graphics  on  the  une>panded  VIC.  They  will 
not  run  on  an  e>q)anded  VIC  without 
modification.  They  will,  however,  run  on  a 
VIC  with  a  Super  Expander.  Also  notice 
it  is  Swirl  III  - 1  and  II  are  only  on  the 
Spinner. 


Listing  6  is  the  same  fonnula  as  its  VIC 
20  counter-part.  Svirl  III  f or  the  plusM  and 
1 6  is  e)9anded  slightly  and  the  difference  in 
outcome  is  startling.  This  PRG  take  well  over 
an  hour  to  finish. 


Listing  7  is  a  pseudo-wedge  for  the 
plusM  and  1 6  written  entirely  in  BASIC  3.5. 


Some  parts  of  these  programs  are 
different  on  the  Spinner,  as  we  sometimes 
have  to  remove  some  flash  to  get  things  done. 
The  Spinner  also  contains  other  programs 
not  found  in  the  Flyer.  Readers  are  invited  to 
share  their  wori<.  Submitters  who  get 
published  will  receive  a  free  issue  of  dieHard 
the  Flyer  and  dieHard  the  Spinner. 
Send  us  your  PRGs  on  disk  or  cassette,  with  a 
hardcopy  of  the  listing  and  explanation  of 
programs.  dieHard,  P  0  Box  392,  Boise, 
Idaho, 83701. 


Technical  nates... 

The  programs  are  written  in  lower-case. 
Type  them  in  with  your  machine  in  upper-case 
mode  (if  it  is  not  in  upper  case  mode,  then 
press  the  <C=>  and  <shift>  keys 
simultaneously).  Where  you  see  a  capltol, 
that  means  that  key  is  used  in  conjunction 
with  another  key,  ie:  [shift  T]  don't  type  the 
brakettes,  just  type  <SHIFT><T>  to  get  the 
graphic  on  the  right  front  or  top  of  the  key. 
"ctri"  means  CONTROL  and  C=  is  the 
camiodore  key.  "crsK*  are  the  cursor  keys. 
If  you  see  os  (lower-case  c)  that  means  type: 
OS,  0  is  often  used  as  a  counter  variable,  so 
you  might  see  c=c-»-1  or  something  like  that. 
None  of  this  month's  PRGs  use  lower  case. 
Type  carefully  and  enjoy! 

READV. 


Listing  1.  Alpha-Count  For  the  128, 

€A,  IS  &  +4  

iiiiilllliiiiiiiillllllllll 

2  rem  copyright  laas 

3  rerr^  lynncarthy  ind 

4  rem  all  right*  reserved 

100  rem  HHH  computer  cipher  >€XX 
110  computer  =  peel«772)  +  256  X 

peeK<773) 
120  if  computer  =  3515a  then  c=l 
130  if  computer  =  50555  then  cs2 


140  if  computer  =  42354  then  cs3 
150  if  computer  s  17155  then  c:4 
150  on  c  gosub  50415^  50020^ 

50054,  50125  :  poke  SC>113  :  SS  =  " 
ca  crsr  rightl" 
500  print  "12  HOMEICCLR] 

Cctrl  1K10  crsr  doconlhello^  do 

you  <A>ant  to  play  a  game?'* 
510  get  as  :  if  as  :  '*"  then  510 
520  if  as  <>  "y"  then  print  "ICLRI"  :  end 
530  print  "tCLR]C10  crsr  docon] 

C15  crsr  rightSoh/  goody!" 

:  for  ts0  to  1900  :  next 
534  input  "tCLR]C10  crsr  dooonl 

hoco  many  players"in  :  if  n<s0  then 

nsi :  else  if  n>9then  534 
540  print  "CCLRU10  crsr  doconl 

my  name  is  ";cnS;"/' 
550  dim  nS(n)/  <A>S(n>^  no(n) 

:f  or  p=l  to  n  :  print"(ohat  is  player 

number"P"tcrsr  lef  trs  name?": 

input  nS(p) 
550  next 

a00  prinftCLR]"  :  gosub  7000 
1000  poke  bc^2  :  poke  sc^0  :  print  ssy 

C3  crsr  doct>nK3  crsr  right] 

Ictrl  enshif t  UX14  shift  01 

Cshif  1 11" 
1010  print  sS;"C3  crsr  rightltshif  t  B] 

[Ctrl  73lynncarthy  indlctrl  51 

Cshif  t  HI" 
1020  print  sS;"C3  crsr  rightJCshif t  Jl 

C14  shift  Fltshif t  Kl" 
1030  print  sSj"C3  crsr  doconl 

15  crsr  rightKctrl  2nshif  t  Ul 

Cd  shift  XJlshif t  II" 
1040  print  sS;"C5  crsr  rightlCshif  t  -J 

[shift  5]presents£shif t  21Cshif t  -3" 
1050  print  sSj"C5  crsr  rightlCshif  t  Jl 

ca  shift  XlCshif t  Kl 
1050  print  sS;"C3  crsr  doconl 

C4  crsr  rightlCctrl  71Cshif  t  Ml 

C12  Cs  TlCshif  t  Ml" 
1070  print  sSj"C4  crsr  rightlCCs  61 

Cctrl  Slatctrl  ailCctrl  71pCctrl  31 

hCctrl  2laC2  spaceicctrl  SlcCctrl  41 

occtrl  71uCctrl  einCctrl  SltCctrl  71 

CCS  Ml" 

1050  print  sS;"C4  crsr  rightlCshif  t  Ml 

C12  Ctrl  oicshif  t  Wl" 
1090  for  ts0  to  2200  :  next 
1120  gosub  2000 
1130  gosub  3000 
1140  gosub  4000 
1150  gosub  5000 
1150  gosub  5000 
1170  goto  1130 
1180  rem  finalize  and  quit  option 

1999  end 

2000  print  "CH0MEl";sS;"C5  crsr  do(A>n] 
C5  crsr  rightlCCs  A3C13  shift  X3CC=  SI 

2002  print  sS;"C5  crsr  rightl 
Cshif  t  -1  do  you  need  Cshif  t  -1 

2004  print  sS;"C5  crsr  rightl 
Cshif  t  -linstructions?Cshif  t  -1 


11    aieXarllfareK 


2006  print  ssyts  crsr  rightKCs  Z3 

CIS  shi^f  HKC=  X3 
2010  get  as  :  i^  aSs""  then  2010 

2012  if  as<>"y"  then  2393 

2013  print  "CCLW 

2020  print  5$j"i:ctrl  23the  alphabet 

coill  be" 
2030  print  5S;"displayed.[2  space] 

under  each" 
2040  print  sS;"letter  is  a  number." 
2050  print  sS;"spell  coords  o>ith  the" 
2060  print  sS/'highest  numbercount." 
2030  print  sS;"the  player  coith  the" 
2030  print  sS;"highest  count  coins." 
2032  print :  print :  print  sS;"press 

any  Key  to  start" 
2300  get  as  :  if  aSs""  then  2300 
2333  return 
3000  rem  display  game 
3010  poke  bC/6  :  poke  sc413  :  print 

"ECLRK2  crsr  do<onr 
3020  print  "C3  space3Cctrl  11a 

C2  spaceUctri  3]bl2  space! 

Cctrl  4ICC2  spacelCctrl  5]dC2  space! 

Cctrl  6]eC2  space]Cctrl  7]f  C2  space! 

[Ctrl  3!gC2  space!Cctrl  l!hC2  space! 

Ectrl  3!iC2  space!Cctrl  41jC2  space! 

Cctrl  5!kC2  space!Cctrl  6!1" 
3030  print  "C3  space!Cctrl  1!1C2  space! 

Cctrl  3!2C2  space!Cctrl  4!3C2  space! 

Cctrl  5!4C2  space!Cctrl  615C2  space! 

Cctrl  7!6C2  space![ctrl  3!7C2  space! 

Cctrl  1!3C2  space!Cctrl  313  Cctrl  4! 

10  Cctrl  5111  Cctrl  6112"  :  print 
3040  print  "C3  spacelCctrl  7!m 

C2  spacelCctrl  3!nC2  space! 

cctrl  110C2  spacelCctrl  3!pC2  space! 

Cctrl  4lqC2  spacelCctrl  51rC2  space! 

Cctrl  61SC2  spacelCctrl  7!tC2  space! 

Cctrl  81UC2  spacelCctrl  llvC2  space! 

cctrl  31C0C2  spacelCctrl  4!x" 
3050  print  "C2  spacelCctrl  7! 

13  Cctrl  3114  Cctrl  1115  Cctrl  3! 

16  Cctrl  4117  Cctrl  5113  Cctrl  6! 

13  cctrl  7120  cctrl  3121  cctrl  1! 

22  Cctrl  3123  Cctrl  4!24":print 
3060  print  "C18  spacelCctrl  5!y 

C2  spacelCctrl  6!zt25  space! 

C10  spacelCctrl  5125  Cctrl  6126" 
3333  return 
4000  rem  input  &  play 
4010  print  "C3  crsr  do<on!"  :  for 

p=l  to  n  :  print  "C2  crsr  uplCctn  6! 

player:Cctrl  51";nS(p);"Cctrl  1!" 
4020  input  (OS(p) 
4022  print  "C2  crsr  up!C21  space!'* 

:print"C20  space!" 
4030  for  isi  to  lenC<oSCp» 
4040  noCp>sno(p>t 

(asc(midS«oS(p)A4!)-e4) 
4050  next :  next 
4333  return 
5000  rem  select  coinner 

5010  (OS0  :  0>Ss""  :  for  psl  tO  h 

5020  if  no(p»(o  then  ci>zno(p> 

:  coSsnSCp) 
5030  next :  psn  :  print  "CCLR! 

C3  crsr  do<on!" 
5034  for  1=1  to  p  :  cc=intCrnd(ti)N3)+l 

:  czS=midS("Cctrl  31Cctrl  4!Cctrl  51 

Cctrl  61Cctrl  71Cctrl  81CC=  llCCs  2! 

CC=  31"^CC^CC) 

5033  print  sS;czS;nsar'  count 

is";noa)  :  next 
5040  print  sS;"C3  crsr  doconl 

C6  crsr  rightlCctrl  3!";<a>S  : 

print  sS;"C2  crsr  rightlCctrl  Slis 

the  winner!" 


5050  for  t=0  to  33  00  :  next 

5333  return 

6000  rem  play  again 

6010  print  "CCLR1C10  crsr  doconlCctrl  ii 

coould  you  like  to  play  again?" 
6020  get  as  :  if  aSs""  then  6020 
6030  if  as<>"y"  then  print  "CCLR! 

C10  crsr  doconlthank  you  very 

much  for  playing  — 

C6  spacelgoodbye!"  :  goto  6050 
6040  return 
6050  for  p=lto  n 
6060  print  nSCp);"  "; :  if  p>l 

and  p<n  then  print"  and" 
6070  next 
6030  for  ts0  to  4300  :  next :  print 

"CCLR!"  :  end 
7000  if  CS4  then  fast 
7010  for  XS0  to  33  :  for  ys0  to  24 
7020  rsint(rnd(0)H255>tl 

:rsr-<int(r/l6)m6sr) 
7030  poke  satxt40)<y^31 :  poke 

catxt40Xy^r  :  poke  bc^r 
7040  next :  next :  if  cs4  then  sloco 
7050  return 

60020  rem  HHH  vie  20  KMM 
60030  print  "CCLRlnot  for  vie!"  :  end 
60064  rem  )<M^NH  64  M)(>(N)( 
60070  cnS="noesis" 
60128  rem  HHHH  Cl28  MNMM 
60130  bcs53280  :  SCS53281  :  sasl024 

:  Cas55236 

60140  if  cs  4  then  graphic0  : 

cnSs*'ftdgar" 
60400  return 

60415  end 

60416  rem  H  plus4  ft  16  H 

60420  bcs65305  :  SCS65301  :  sas3072 

:  cas2048  :  cnSs"geist" 
60500  return 
60600  end 

Listing  2.  Ez-sprite  64  For  the  64. 

IIIIIIIIIIIMIIIIIIIIIIIII 

1000  remC3  spacelreading  sprites 

from  picturesCll  spaceldracon  in 

the  data  statements 
1010  print  "CCLRlCcrsr  doo>n! 

CIS  spacelCctrl  3]ez-sprite" 
1012  print  "Ccrsr  doconldraco  sprites 

directly  in  data  statements 
1020  print  "C2  crsr  doa>n! 

C18  spacelCctrl  4!by'* 

:  poke  53280A  :  poke  53281^7 

1030  p>rint  "C3  crsr  do<«>nlC10  space! 

Cctrl  71C13  cs  O! 
1040  print  "C10  spacelCctrl  71Crvs  on! 

brian  1  crosthcoaite 
1050  print 
1060  print  "C8  spacelCctrl  6!copyright 

1333  lynncarthy  ind. 
1070  print  "C3  spaceuctrl  6!all  rights 

reserved 
1080  print 
1030  print 
1100  print  "C8  spacelCr^/s  on! 

Cctrl  2icshif  t  british  poundlCCs  8! 

C22  spacelCCs  51CCS  xicrvs  off! 
1110  print  "C8  spacelCrvs  on! 

CCS  31  CCs  sipress  <space>  to 

beginCCs  4!  Crvs  off! 
1120  print  "C8  spacelCCs  5UCs  m 

Crvs  onlCCs  41C22  spacelCrvs  off! 

Cctrl  llCshif  t  british  pound! 
1130  rem  nusnumber  of  sprites 
1200  CZS0  :  sas53248  :  SCs53287  :  nusl 

:  dimssS(20  H  nu) 

:rem  nu  can  be  up  to  8  sprites 


1210  get  es  :  if  eSs""  then  1210 
1220  gosub  2000  :  rem  read  data 
1230  gosub  3000  :  rem  set  sprites 
1240  gosub  4000  :  rem  convert  data 
1250  ess***'  :  get  eS  :  if  eSs**** 

then  1250 
1260  gosub  5000  :  list  3050  -  3250 
1333  end 

2000  rem  read  data  into  strings 
2010  for  is0  to  20  H  number  of 

sprites  :  read  ssS(i) :  next 
2020  return 
2333  end 

3000  rem  set  up  sprites 
3004  snsnu-1 

3010  poke  sctsn^0  :  rem  color  0 
3020  poke  53277^  peek  (53277)  and 

<255-2^sn> :  C17  space! 

rem  unexpand  x 
3030  poke  53271/  peek  <53271)  and 

<255-2i'sn)  :  C17  spacelrem 

unexpand  y 
3040  poke  satsn/255  :  poke 

sat sntl/100  C5  space! : 

C17  spacelrem  position 
3050  poke  53263/  peek  (53263)  or 

(2i'sn)  C5  space! :  C17  spacelrem 

turn  sprite  on 
3800  return 
3333  end 
4000  rem  convert  strings  into 

sprites 
4002  poke  2040/132  :  CVs7 
4010  print  "CCLR1C2  crsr  doconl 

Ccrsr  left!"  :  for  is0  to  20  H  nu 
4020  for  jsi  to  24 
4026ps-(asc(midS(ssS(i)/j4>)-42) 
4030  print  midS(strS(p)/2/l>; 
4032  if  ps0  and  CVS0  then 

pvspv  or  0  :  goto  4038 
4034  pvspv  or  ((2X-(psi))i^cv) 
4038  cvscv-1 :  if  cv<0  then  cvs7 

:  poke  132  X  64tCZ/pv  :  pvs0 

:  CZSCZtl 

4040  next :  print 

4050  next  :  CZSCZtl 

4800  return 

4333  end 

5000  rem  end 

5004  snsnu-l 

5010  poke53263/  peek  (53263)  and 

(255-2'^sn) 
5020  print  "CCLR!" 
5800  return 
5333  end 

8000  remC2  spacelsprite  data 

8001  remC12  spacelllllllllll2222 

8002  remC2  spBCel01234567d3 
01234567830123 

8003  remC2  spaceK24  -1 

8004  remC2  space!7654321076543210 
76543210 

8008  remC2  spacelC24  -1 
80l0remC2space!lC7space!lC7space!l 
8020  remC2  space!2631C4  space!263l 

C4  spacel2631 
8030  remC2  space!842684218426 

842184268421 
8040  rem 

C2  spacelC24  -1 
8050  data  "C24  space!"  :  0 
8060  data  "C24  space!"  :  1 
8070  data  "C10  space»<KXM 

C10  space!"  :  2 
8080  data  "C7  space!MH»<C4  spuc^mHH 

C7  spacer  :  3 
8030  data  "C6  spacel><C10  spacelM 


aicXarlllaraK  12 


C6  space]"  :  4 
8100  daf  a  "C6  spacelN»<^^ 

C4  space]H><XMC6  spaces"  :  5 
8110  daf  a  "ce  space]^C3  space]»<»<><»< 

C3  spacelHCe  spacer*  :  6 
8120  daf  a  "C6  space]HC10  spacelH 

iS  spaces**  :  7 
8130  da-ta  "C6  space]^C10  space]»< 

C6  spacer  :  8 
8140  data  "i:4  space]H><N[10  space]><^»< 

C4  space]'*  :  9 
8150  daf  a  "C3  space]»<  ><C12  space]»<  H 

C3  space]**  :  10 
8160  data  "[2  space]XC2  space])< 

C12  space]><C2  space]N[2  space]** :  11 
8170  da-fa  **C2  space]»<C2  space]»<»< 

[10  space]H»<K2  space]>< 

C2  space]** :  12 
8180  data  **C2  space]»<C4  spacelHNX 

C4  space]><><)<C4  space]K 

[2  space]** :  13 
8180  data  **t3  spac^mis  space»<><»<X 

C6  space]»<C3  space]'* :  14 
8200  data  *'C4  space]XXC12  space]^^ 

C4  space]** :  IS 
8210  data  "C6  space]H)<XC6  space]»(X)< 

IS  space]"  :  16 
8220  data  "C8  space]XMXK»(^ 

C9  space]"  :  17 
8230  data  "C24  space]"  :  18 
8240  data  "t24  space]"  :  18 
8250  data  "C24  space!"  :  20 

Listing  3.  The  Trip  to  St.  Valentine's 
Day  For  128. 
iimiiiiniiMiiiimiiii 

130  rem  Mfebruary  1893  diehard 

spinnerM 
140  rem  NC5  space] 

brian  1  crosthci»aiteK5  spaceJH 
150  rem  XC€  space]happy  valentine's! 

C5  space]>< 
160  rem  )i(C12  space]enjoytl2  spacelX 
170  rem  C30  HI 
1000  rem  H  title  screen  & 

sprite  data  H 
1100  gosub  4000 
1200  rem  ><ehard  spinners 
140  rem  NC5  space] 

brian  1  crosthcoaiteCS  space]^ 
150  rem  Hie  space] 

happy  valentine's !C6  spacelX 
160  rem  )<tl2  space]enjoyC12  spacelH 
170  rem  C30  X] 
1000  rem  H  title  screen  & 

sprite  data  K 
1100  gosub  4000 

1200  rem  HHHH  clear  screen  HHHH 
1300  print  "tCLSr* 
1400  rem  HHH  plains  HHH 
1500  gosub  5000 
1600  rem  HHHH  house  HHHH 
1700  gosub  3000 
1800  rem  HHHH  turn  off  sprites  HHH 

1999  gosub  4309  :  print  "C2H0ME1CCLR]'* 
:end 

2000  rem  HH  clear  sound  routine  HH 

2010  SOS  54272  :  for  jsso  to  SOt24 

poke  j,0  :  next 
2980  return 

2999  end 

3000  rem  HH  house  HH 
3002  vol  15 

:soundl,  900^  600^  2,  1200^  3000>  1 
3011  print  *'[2  HOME]ICLR]Cctrl  21 
Ccrsr  do<A>n]C2  crsr  right]you 
search  for  that  one 


true  love..." 
3012  sprite2,l,1^0>1^0^0 
3014  print  "CHOMEJIll  crsr  down] 

";chrS<27)j"tCctrl  7]Ccrsr  do<A>n] 

[crsr  lef  t][l0  crsr  docon] 

•*;chrS<27);'*b**;  :  color  0^10 
3020  for  is0  to  399  :  print  *'C2  Cs  O] 

[2  Cs  P][2  shift  R]t2  shift  F] 

[2  shift  C]C2  Shift  01C2  Shift  E] 

[2  Cs  Yl[2  Cs  Tl"; 
3030  next 
3040  print  "CHOME]Cctrl  8]Ccrsr  dooon] 

[2  crsr  right]C2  space]you  run  out 

of  gas  and  decide  that" 
3044  print  *'C4  space]you  must  <oalK." 

:  sleep  5 
3052  sprite  2/0  :  sprite  3^0 
3060  print  **C2  HOME]CCLR)";  :  color  0^2 
3070  print  "CCS  4JC19  space]Cshif  t  m 

CCS  H]tl8  space]**; 
3080  print  "[18  space][shif  t  ni] 

C2  space]CCs  H][18  space]"; 
3090  print  "(17  space]Cshift  iU] 

[3  spacelCCs  H][18  space]"; 
3100  print  "C16  spaceushif  t  Ml 

C4  space]CCs  H]tl8  space]"; 
3110  print  "CIS  Cs  YlCshif  t  P] 

CS  spacelCCs  HlCld  space!"; 
3120  print  "CIS  spacelCCs  N!CS  space! 

CCS  H!C18  space!"; 
3130  print  "CIS  space!CCs  iU!CS  space! 

CCS  H]C18  space!"; 
3140  print  "CIS  spacelCCs  IU!CS  space! 

CCS  H1C18  space!"; 
3150  print  *'C1S  spacelCCs  miB  space! 

CCS  HIC18  space!"; 
3160  print  "CIS  Cs  P!Cshif  t  0!C5  space! 

CCS  HIC18  space!"; 
3170  print  "C16  spaceicshif  t  M! 

C4  space!CCs  h!C18  space!"; 
3180  print  **C17  spaceicshif  t  M! 

C3  space!CCs  H!C18  space!"; 
3190  print  "C18  space!Cshift  M! 

C2  space!CCs  H!C18  space!"; 
3200  print  "C19  space!Cshif  t  M!  CCs  HI 

C18  space!"; 
3210  print  "C20  spaceicshif  t  MlCCs  H! 

C18  space!"; 
3220  print  "C21  space!Cl9  Cs  Yl"; 
3230  print  "C25  spacelClS  spacer; 
3240  print  "C3  crsr  doa>n! 

C2  crsr  rightlCctrl  6! 

several  hours  later  you  find 

yourself  C3  spacelin  a  strange 

house..."; 
3250  sprite  7AA  -  sleep  6 
3260  print  "C3  crsr  left!  looking  at 

aC9  spacelpainting." 
3270  char  l/1840/*CCs  iiccs  NlCcrsr  up! 
Cshif t  Niccs  HlCcrsr  dOMnlCcrsr  left! 

CCS  HlCcrsr  do(A>n!Ccrsr  lef  tlCCs  h! 

C2  crsr  lef  tlCshif  t  MlCcrsr  up! 

Ccrsr  lef  ticshif  t  sr 
3280  sleep  6 
3290  print :  print" 

C4  crsr  dooi>n!";chrS<27);"tCCLRl" 
3300  print  "C2  crsr  rightlsuddenly^i 

she  se«is  you  and  yet  you 

C6  spacelremain  unacoare.** 
3310  sprite  €AA 
3320  sleep  3  :  for  is0  to  9  :  osotl 

:  if  o>l  then  oe0 
3322  for  ds0  to  299  :  next  : 

sound  1/200A 
3326  sprite  4/0/3  :  next 
3330  print  *'CCLR]Cctrl  l! 

C9  crsr  rightlthe  next  thing  you 

knoot>C19  spacelyou  have  a 


mortgage!" 
3340  sprite  6/0  :  sprite  7/0  :  sprite 

8/1/2  :  color  0/8  :  Sprite  5/1/3 

:soundl/2200/20/0/1200/100/2/4000 
3350  envelope  7  :  tempo  8 

play  "ha  qSa  Sf  g  f  d" 
3390  sleep  9  :  return 

3999  end 

4000  rem  HH  title  routine  HH 
4010  for  csi  to  5  :  color  C/C+1 :  next 

:  color  0/8 
4020  print :  print  "  Cctrl  Slthe  trip 

to  Cctrl  31  saint  Cctrl  6! 

valentine's  Cctrl  71day" 

C27  spacer; 
4030  for  fzsi  to  20  :  print  :  next 
4210  print  "C20  spacelCctrl  41by" 
4220  print  "C20  spacelCctrl  Slbrian  I 

crosthcoaite  "; 
4230  print  "Cctrl  21C40  Cs  31"; 
4240  print  "Cctrl  21Crvs  on!(c)1993 

lynncarthy  indC2  spacelf  ebruary 

diehar"; 
4260  poke  2023/132  :  poke  56295/1 
4272  rem  HHH  clear  sound  HHH 
4274  gosub  2000 

4280  rem  imHH  init  sprites  HH)<XX 
4290  vsdec  ('*0e00") 
4300  for  isv  to  4032  step  64 

:  for  psi  to  1+63  :  if  Isv  then 

poke  p^255  :  goto  4308 
4304  read  d  :  poke  p/d 

4308  next  p/l 

4309  rem  sprite  1C14  spacelblock 

4310  sprite  1/0/1/0/0/0/0 

4311  rem  sprite  2C14  spacelcar 

4312  sprite  2/0/1/0/0/0/0 

4319  rem  sprite  3C14  spacelsun 

4320  sprite  3/0/3/0/0/0/0 

4321  rem  sprite  4C14  spacelheart 

4322  sprite  4/0/3/0/0/0/0 

4329  rem  sprite  5C8  space] 
heart  ci>/arro<p 

4330  sprite  5/0/5/0/0/0/0 

4331  rem  sprite  6C14  spacelgirl 

4332  sprite  6/0/1/0/0/0/0 

4339  rem  sprite  7C14  spacelboy 

4340  sprite  7/0/1/0/0/0/0 

4341  rem  sprite  8C14  spacelkiss 

4342  sprite  8/0/2/0/0/0/0 
4350  gosub  9000 

4989  return 

4999  end 

5000  rem  HHHH  rolling  plains  HHHH 
5002  vol  15 

:SOUndl/9  00/0670/2/1700/3000/1 
:sprite  3/1/8 

5010  print  "C2  H0ME1CCLR1C7  crsr  do<on! 
C2  crsr  rightlCctrl  21C38  Cs  or 

5011  print  ■■CHOMEUctrl  11 

C2  crsr  do<onICcrsr  doconlthe 
rolling  plains  out  the  <A>indo<A> 
of  C4  spacelyour  motor  car." 

5012  print  "CHOMElCctrl  llCcrsr  docon! 
Ccrsr  rightKrvs  onlCCs  Ji 
Crepeat  the  f  ollo(A>ing  key 
strokes  24  times  total  (don't 
type  this)Ccrsr  doo>nlCcrsr  left! 
CCS  jiicrvs  off!"; 

5014  print  "CHOMEICS  crsr  docon! 

C4  crsr  rightlCctrl  dlCshif  t  Ql 

CS  crsr  lef  tlC2  crsr  right! 

C6  crsr  doc»>nl"chrS(27)"tCctrl  71**; 

:  color  0/10 
5020  for  is0  to  399  :  print  '*C2  Cs  31 

C2  cs  P1C2  Shift  R1C2  Shift  Fl 

C2  Shift  C1C2  Shift  D1C2  Shift  El 

C2  Cs  Y1C2  Cs  Tl"; 


13   auXsrlMar«K 


5030  next 
5993  ret-urn 

3000  rem  Hi^  r^s^t  spri-tes  HH 
3010  movspr  1470^220  :  rem  block 
3020  movspr  2470/220  :  rem  car 
3030  movspr  3^045^080  :  rem  sun 
3040  movspr  4^060443  :  rem  heart- 
3050  movspr  5^030420  :  rem 

heart"  <o/arro<o 
3060  movspr  6^060440  :  rem  girl 
3070  movspr  7410440  :  rem  boy 
3030  movspr  3^030440  *  rem  kiss 
3030  for  i=l  to  3  :  sprite  i>0  :  next 
3383  return 
3333  end 

50000  rem  K»<)<><X  sound  ^><^><H 
50030  return 

53333  rem  ^^><)<><  sprite  data  ><HXXH 
50000  data  0,  0,  0,  0,  0,  0,  0,  0 
50010  data  0,  0,  0,  0,  0,  0,  0,  0 
50020  data  0,  0,  0,  0,  0,  0,  0,  0 
50030  data  3^  243^  0,  Q,  12^  0,  3,  74 
50040  data  0,  33^  73^  0,  S3,  255^ 

252^  32 
50050  data  132^  2,  35^  135/  2,  €0, 

132>  123 
50050  data  €S,  120/  132/  25/  255/ 

48/  35/  0 
50070  data  72/  35/  0/  72/  24/  0,  48/  0 
50080  data  0/  0/  0/  0/  0/  0/  0/  0 
50030  data  0/  0/  255/  0/  3/  255/  132/  7 
50100  data  255/  224/  15/  255/  240/  31/ 

255/  248 
50110  data  31/  255/  248/  53/  255/  252/ 

53/  255 
50120  data  252/  53/  255/  252/  53/  255/ 

252/  31 
50130  data  255/  248/  31/  255/  248/  15/ 

255/  240 
50140  data  7/  255/  224/  3/  255/  132/ 

0/  255 
50150  data  0/  0/  0/  0/  0/  0/  0/  0 
60150  data  0/  0/  0/  0/  0/  0/  0/  0 
50170  data  0/  3/133/  128/  7/  233/ 

132/  15 
50180  data  255/  224/  15/  255/  224/  31/ 

255/  240 
50130  data  31/  255/  240/  15/  255/  224/ 

15/  255 
50200  data  224/  7/  255/  132/  3/  255/ 

128/  1 
50210  data  255/  0/  0/  254/  0/  0/  124/  0 
50220  data  0/  55/  0/  0/  15/  0/  0/  0 
50230  data  0/  0/  0/  0/  0/  0/  0/  0 
50240  data  54/  0/  0/  208/  0/  0/  48/  0 
50250  data  0/  115/  133/  128/  15/  233/ 

132/  11 
50250  data  255/  224/  13/  255/  224/  30/ 

255/240 
50270  data  31/  127/  240/  15/  255/  224/ 

15/  255 
50280  data  224/  7/  255/  132/  3/  255/ 

128/  1 
50230  data  255/  0/  0/  254/  128/  0, 

124/  54 
50300  data  0/  55/  40/  0/  15/  24/  0/  0 

50310  data  55/  0/  0/  0/  0/  0/  0/  0 
50320  data  0/  0/  0/  0/  0/  0/  0/  0 
50330  data  0/  0/  0/  0/  0/  0/  0/  0 
50340  data  0/  0/  0/  224/  0/  1/  175/  0 
50350  data  1/  135/  0/  1/  80/  0/  1/  32 
50350  data  0/  0/  48/  0/  0/  55/  0/  0 
50370  data  48/  0/  0/  48/  0/  0/  48/  0 
50380  data  0/  120/  0/  0/  252/  0/  0/  32 
50330  data  0/  0/  32/  0/  0/  48/  0/  0 
50400  data  0/  0/  0/  0/  0/  0/  0/  0 
60410  data  0/  0/  0/  0/  0/  0/  0/  0 
50420  data  0/  0,  0,  224/  0/ 1/  176/  0 


60430  data  1/  136/  0/  1/  80/  0/  0/  32 
60440  data  0/  0/  48/  0/  0/  48/  0/  0 
60450  data  48/  0/  0/  48/  0/  0/  112/  0 
60460  data  0/  112/  0/  0/  48/  0/  0/  32 
60470  data  0/  0/  32/  0/  0/  48/  0/  0 
60300  data  0/  0/  0/  0/  0/  0/  0/  0 
60310  data  0/  0/  0/  0/  0/  0/  0/  0 
60320  data  0/  0/  0/  225/  132/  1/  173/36 
60330  data  1/  140/  36/  1/  82/  160/  1/  33 
60340  data  0/  0/  51/  0/  0/  53/0/0 
60350  data  51/  0/  0/  51/  0/  0/  51/  128 
60360  data  0/  123/  128/  0/  255/  0/  0/  33 
60370  data  0/  0/  33/  0/  0/  51/  0/  0 

Listing  4  Stargate  For  the  VIC  20. 
iiiniiiiiinniiimiiiii 

0  rem  127M127 

2  poke  52/20  :  poke  56/20  •'  dr 

10  gosub  1000 

20  xmsl27  :  ym=127 

22  xc=xm/2  :  ycsym/'2 

30  x-fsym/xm  :  y-fsxm/ym 

100  for  XS0  to  xm  :  ys0  :  gosub  2000 

:y=ym  :  gosub  2000  :  next 
120  for  ys0  to  ym  :  xs0  :  gosub  2000 

:x=xm  :  gosub  2000  :  next 
420  for  rs4  to  xm 

:  for  nsl  to  360  step  10 
440  xsint(xc  N  xf  t  r  N  sin(n/180  H 

Cshif  t  'M  » 
450  ysint(yc  X  yf-r  H  cos<n/180  H 

Cshif  t  -M  )) 
450  gosub  2000  :  remplot 
470  next :  next 
480  goto  480 
333  end 
1000  poke  35853/253 

1010  for  ts5120  to  7673  :  poke  i/0 

:  next 
1020  poke  35873/8  :  print  chrS(147) 
1030  for  is7580  to  8185 

:  poke  i/150  :  next 
1040  for  ls0  to  15  :  for  ms0  to  15 
1050  poke  7743  tm  ^  22tl/l  H  15tm 
1050  next :  next 
1070  return 
2000  rem  plot  X/y 
2002  if  x>xm  or  x<0  or  y>ym  or  y<0 

then  2050 
2008  chsint  (x/8)  )<  15  t  int  (y/8) 
2010  ros(y/8  -  int  (y/8))  H  8 
2020  bys5120  t  8  H  ch  -I-  ro 
2030  bis7  -  <X  -  (  int  (X/8)  H  8)> 
2040  poke  by/  peek  (by)  or  (2i'bi> 
2050  return 


Listing  5  Spiral  HI  For  the  v;ic  20. 

niiiiiiiiiiiiimiiiiiiii 

2  poke  52/20  :  poke  55/20  :  dr 

10  gosub  1000 

20  xmsi27  :  ymsi27 

22  xcsxm/2  :  yc=ym/2 

30  xfsym/xm  :  yfsxm/ym 

100  for  XS0  to  xm  :  ys0  :  gosub  2000 

:  next 
120  for  ys0  to  ym  :  xs0  *•  gosub  2000 

:  xsxm  :  gosub  2000  :  next 
420  for  n=l  to  3143  step  1  ••  r^r  +  .01 
440  xs  int  (  xc  +  r  X  xf  X  sin 

(  n/1210  H  [shift  ^l )) 
450  ys  int  (  yc  -  r  »<  yf  H  cos 

(  n/2000  X  Cshif  t  ^1 )) 
460  gosub  2000  :  rem  plot 
470  next 
480  goto  480 
1000  poke  36853/  253 


1010  for  i=5120  to  7673  • 

poke  i/0  :  next 
1020  poke  36873/8  :  print  chrsa47) 
1030  for  is7680  to  8185 

:  poke  i/160  :  next 
1040  for  1:0  to  15  :  for  ms0  to  15 
1050  poke  7743  +  m  X  22  +  1/ 

1  X  16  +  m 
1060  next :  next 
1070  return 
2000  rem  plot  X/y 
2002  if  x>xm  or  x<0  or  y>ym  or  y<0 

then  2050 
2008  ch=  int  (  x/8  )  ><  16  +  int  i  y/8  ) 
2010  ro=  <  y/8  -  int  <  y/8  ))  X  8 
2020  bys5120  t  8  M  ch  +  ro 
2030  bi=7  -  C  X  -  <  int  C  x/8  )  H8  » 

2040  poke  by/  peek  (by)  or  (2i'bi) 
2050  return 

Listing  6   spiral  III   For  the  16  and 

Plus/4. 

iiiiimiiniiiiiiMimi 

10  gosub  1000 

20  xm=313  :  ymsi33 

22  xc=xm/2  :  yc:ym/2 

30  xf=ym/xm  :  yf=xm/ym 

100  for  XS0  to  xm  :  ys0  :  gosub 

2000  :  ysym  :  gosub  2000  :  next 

120  for  ys0  to  ym  :  xs0  :  gosub  2000 

:  xsxm  :  gosub  2000  :  next 
420  for  n=l  to  3143  step  1 :  rar  +  .01 
440  x=  int  (  xc  +  r  H  xf  M 

sin  (  n/1210  M  Cshif  t  ^1 )) 
450  ys  int  (  yc  -  r  H  yf  X 

cos  (  n/2000  N  Cshif  t  ^1 )) 
450  gosub  2000  :  rem  plot 
470  next 
480  goto  480 
1000  graphic  1/1 
1070  return 
2000  rem  plot  X/y 
2002  if  x>xm  or  x<0  or  y>ym  or  y<0 

then  2050 
2008  draco  1/X/y 
2050  return 
4000  remC27  X] 
4010  remXcopyright  1333 

lynncarthyX 
4020  remXC3  spacelall  rights 

reserv  edC3  spacel)< 
4022  rem><  diehard  the 

spinner  2/3  3M 
4030  remC27  HI 

Listing  7  GeistUledge  For  the  15  &t4. 

Ilillllllllllllllllllllll 

0  remember  copyright  1333 
lynncarthy  ind.C14  spacelall 
rights  reserved 

2  poke  1344/0  :  graphic  dr  :  print  " 

C2  HOMEICCLR]*'; 

3  color  1/7/0  :  color  4/7/0 

:  COlor0/14/5 

4  c$=  "CHOMEJCcrsr  rightK8  crsr 
do<A>n] 

"  +  chrS(27)  +  "tClScrsr  docDnl" 

5  cS=  cS  +  "C37  crsr  rightJ" 

+  chrS(27)  +"b" 
10  print  "CCS  A2C38  shift  XKCs  SI" 

20  print  "Cshif  t  -1  "/• :  color  1/1 

21  print  "geist  "; :  color  1/2 

22  print  "system  154  ";  :  color  1/13/2 

24  print  "microsoft  ";  ••  colorl/12/0 

25  print  "basic  3.2"; :  color  1/7/0 
28  print  "  Cshif  t  -3" 

30  print  "CCS  <lKshif  t  XlCCs  Wl" 


dkXard  H  ar«K  14 


40  print  "tshift  -3  f isgraphicts  space] 

f 4=scratchC9  spaceKshif  f  -3" 
50  prinf  "[shift  -3  f 2=dloa<3C10  space] 

f5=save/verifycs  space][shift  -3" 
60  print  "ishift  -3  f 3sdirectoryC6 
space3f6srun 

[13  space][shif  t  -]'* 
67  print  "[shift  -3  helpshelp 

[9  space3f  7siist[l2  space][shif  t  -]" 
70  print  "[C=  <l][shif  t  X3[C=  W3" 
d0  for  i=0  to  15 

S4  print  "[shift  -][38  space][shif t  -1" 
88  next 

8  8  print  "[C=  Z][shift  X3[C=  XI"; 
100  print  cS  :  poke  dec  (  "  0c00  "  ) 

+  888>  125 
110  print  "[CLR]t8  spac^lHHH  geist 

[2  spacelsystem  H^H" 
120  print  "[7  space]»<»<^"f re(0)"bytes 

free  NNH" 
130  print  "[10  space]N»<N)<  leosof  t 

140  key  1^  "graphic" 

150  key  2,  "dload[18  crsr  right]:" 

+chrs<13) 
160  key  3^  "[CLR3directory"  t  chrS(13) 
170  key  A,  chrS(148)  t  chrsa48) 

+  "scratch£18  crsr  right3C3  : 3" 

+  chrS(13> 
180  key  5^  ":sA  aS^  8 

:  vE  aS^  8"  t  chrsa3> 
180  key  S,  "CCLRSrun"  t  chrS(13) 
200  key  7^  "CCLR]list"  t  chrS(13) 
210  key  8^  "help"  -I-  chrS<13) 
220  neco  :  end 


READY. 


Mind  Of  A 

Progrannnner 

Qonie  Hey  wire! 


a 


i) 


i} 


BLG 


Rarity 


Let's  ^  to  aroiokd  1988  or  so. 
ever  re]iLe]iiier  seeing  these: 


w 


Do 


<^    ^-    'f? 


or  perkips  these: 


m  &  B  ^  ^ 


9S   <^   fe 


To  tell  the  truthL  I  don't  either^  alt  leiist 
not  ^uktil  1993  -  ahovt  lAst  vreek  ago 
actually.  These  are  jTist  a  sampling  of  what 
is  knovm  as  Siutft  FoiCs.  Heat  little 
graphics  drawn  with  FoitAnster  n  hy 
Sue  Alhert.  Thiere  are  two  disks  called 
SDZAST  FOMTHASTES  111128  and 
SQZAST  GEOS.  Thiey  Txsed  to  sell  for 
$12.50  each  or  so  vntil  some  cosmic  thin; 
happened  and  they  were  no  longer  availahk. 
(Or  Ms  Alhert  jTxst  didn't  want  to  deal  them 
anymore.)  Until  now. 

Scot  Derrer  of  Thie  Plotting  Shed  fame 
is  now  carrying  the  SUZJJlT  disks  and 
he's  selling  them  for  around  ten  hwks  for 
hoth  disks! 

EaclL  font  set  is  loaded  -  hoth  upper 
and  tower-case^  and  numhers  too.  There  is 
something  for  every  occasion.  You  can 
even  make  horters  out  of  these  things.  The 
possibilities  are  limitless!  It's  a  great  way 
to  put  graphics  into  gtoVrilc  documents 
straight  from  the  keyhoarl  Because  they 
are  fonts,  you  can  put  text  ri^ht  aext  to 
them! 

For  more  information  contact  Scot 
Derrer,  1529  Longmont  Ave,  Boise,  Baho, 
83706-3731. 

If  you've  got  something  to  LIST  or 
know  of  somebody  or  something  that  may 
he  of  interest  to  our  readers,  write  to: 
iieBtft,  ATTH:  LIST,  P.O.Box  392, 
Boise,  Baho,  83701.  User  Groups  Send  ^s 
info  on  your  group!  Ve  are  especially 
interested  in  programmers  and  their  projects. 
Drop  IIS  a  line. 

READY. 


Trader' s  Corner 

Got  something  to  trade?  Need 
something?  1^  here.  Maybe  one 
of  our  readers  has  jiist  vhat  3?ou'  re 
tooKing  for  Or  perhaps  they  want 
vhat  you  have.  Trader' s  Coiner  is 
free  to  anyone  looking  to  trade  or 
buy  (If  you  want  to  sell  something 
yotfU  have  to  take  out  a  classified, 
they  are  $5. ) 

Write  to  dieHanI,  P.  0.  Box  392, 
Boise,  ID,  83701. 

WaaOBlil:  commodore    Pliui4 

joysticks.  Any     information 

appreciated.  P.O.  Box  392,  Boise, 
ID,  83701. 


Books  on  any 
computer,  old,  nev,  never  released, 
etc.  P.  O.  Box  392,  Boise,  Idaho, 
83701. 
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Oh,     wf\y    not,     put    Me    down     for    a    subscription    to    dmeHard. 
Enc  losed    is    $ . for  : 

_The  Flyer $1  5.00  one^arken-issue  subscription ($25.00  Canaudian) 
_S ingle  issue  price  $1 .75  ($3.00  Canadian) 

_The  Spinner$45.00  one  yearten  issue  subscription ($65.00  Canadian) 
_S ingle  issue  price  $5.00  ($8.00  Canadian) 

BACK  ISSUES!                                            U.S.A.  Canada 

Issue  #t  1  HardCorg  Hay  1992 S2 .  58  $4.66 

Issue  H  2  MPC  June  1992  ,  .  .$2.56  $4.66 

Issue  t*  3  Oops  J  July  1992. $3.56  $5.25 

Issue  n  4  PuwiPicin  October  1992 $2.56  $4.66 

Issue  it  5  aeolssug!  NoveMber/DeceMber  1992.. $2. 56  $4.66 

Issue  n  6  Historu  In  3661  January  1993  ...... $2 . 75  $4,25 

Issue  #»  7  Computer  CipHer  February  1993 . . . . . $2 . 75  $4.25 


NaMe : 

Address : 

City: State: Zip:. 


Mail  to:  dm«Nard«  P  0  Box  392,  Boise,  Idaho,  83761, 

CKcek  or  H o&ty  or^r  only  ^lfi5<.     IbXo  msiiU^^  ft41  5^  stUs  tax . 


dieHard 

P  O  Box  392 
Boise  ID  83701 


